Question

ASP网页部分功能显示乱码

这是乱码的页面，此块功能的页面代码如下：
Dim conn
Dim connstr
Dim rs
Dim sql3
Dim count
Dim page
Dim pagesize
Dim key
Session.Timeout=1440
pagesize=18
count=0
key=trim(Request.Form("searchx"))
if key<>""then
sql3="select B_no,B_name,B_pub,B_loc,B_price,Key_w,B_author from books where B_name like'%"&key&"%' or B_no='"&key&"' or B_pub like'%"&key&"%' or Key_w like'%"&key&"%' or B_author like'%"&key&"%' or B_loc like'%"&key&"%' group by B_no,B_name,B_pub,B_loc,B_price,Key_w,B_author"
session("sql3")=sql3

end if
set conn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
conn.ConnectionString="DSN=library1;User id=sa;Pwd=guoyu"
conn.Open()
rs.ActiveConnection=conn
rs.CursorType=1
rs.LockType=1
rs.Open session("sql3")
if rs.eof then
Alert("没有找到相关图书信息")
Go("maintbooks.asp")
response.end
end if
rs.pagesize=pagesize
page=request("page")
if isempty(page) or cint(page)<1 or cint(page)>rs.PageCount then
page=1
end if
rs.absolutepage=page
在浏览器中打开网页后查看此页面源代码，显示也是这样的，上面的都正常，就下面这块乱码





Answer 1

asp显示乱码是编码问题，以下方法可以解决：
1、asp代码最顶部加入：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> ，注意是在最顶部，单独一行。不要和其他代码写到一起。
2、如果1不能解决，在你的模板或者asp调用的代码中加入
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
另外你这个程序是一个错误信息的显示，代码有错误，需要修改。