点击下一页就出现 参数TypeID后面不能有非法字符！
代码如下
<!--#include file="Include/Startup.Asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta content="text/html; charset=gb2312" http-equiv="content-type" />
<title>图文信息列表</title>
<link href="Include/ManageStyle.css" rel="stylesheet" type="text/css" />
<%
Identification()
'传入参数
Dim ClassName, cPage, cUrl, tTypeID, cType, wSql
Dim sID, sTitle, sNum
ClassName = SafeRequest("Action",0)
tTypeID = SafeRequest("TypeID",1)
If tTypeID <> "" Then
cType = "?TypeID=" & cType
wSql = "n.nType = "& tTypeID &" AND"
End If
cPage = SafeRequest("Page",1)
If cPage = "" Then
cUrl = "Simple.Asp" & cType
Else
If cType <> "" Then
cUrl = "Simple.Asp"& cType &"&Page=" & cPage
Else
cUrl = "Simple.Asp?Page=" & cPage
End If
End If
Select case ClassName
case "cTop"
cInfocTop
case "Del"
cInfoDel
case "GoPage"
Response.Redirect("Simple.Asp?Page=" & Request.Form("PageKey"))
End Select
%>
</head>
<body>
<%
Dim cSql, cRs, tType
Set cRs = Server.CreateObject("ADODB.Recordset")
cSql = "SELECT nTitle FROM y_NewsType WHERE nID=" & tTypeID
cRs.Open cSql, Conn, 0, 1
If Not cRs.EOF Then
tType = cRs(0)
Else
GoMain "栏目不存在!","Type.Asp"
End If
cRs.Close
Set cRs = Nothing
%>
<p class="pTitle">
<%=tType %>：<a href="SimpleEdit.Asp<%If tTypeID <> "" Then Response.Write( "?TypeID=" & tTypeID ) End If %>">发布新信息</a></p>
<div class="Info_Title">
<label class="Porduct_li_1">
所属分类</label><label class="Porduct_li_2">信息标题</label><label>管理操作</label></div>
<ul class="Info_List">
<%
Dim PageUrl, Pages, Page, PageSize
Sql = "SELECT nt.nTitle,n.nID,n.nTitle,n.nTop FROM y_News as n,y_NewsType as nt WHERE "& wSql &" n.nType = nt.nID AND nt.nCategory = 1 ORDER BY n.nID DESC"
RS.Open Sql,Conn, 3, 1, 1
PageUrl = "Simple.Asp" & cType
Rs.PageSize = 13
Pages = Rs.PageCount
Page = cPage
If page = "" or page=<1 Then
Page = 1
ElseIf cint(Page)>=cint(Pages) Then
Page = Pages
End If
Dim cx
cx = Rs.RecordCount
If Not Rs.Eof Then
Dim cs