asp页面汉字的地方全是问号 （救命啊！！！！！（50分））

wenmingcool 2008-10-10 12:04:11
我加了一句话了啊<meta http-equiv="Content-Type" content="text/html;charset=gb2312"> 可还是全是问号
困扰我好长时间了，望大家帮忙



<%if len(session("Userid"))=0 then

Response.redirect "logon.asp"

else

 

Set Conn = Server.CreateObject("ADODB.Connection")

'*****************************

 conn.Open "Compliance_CBT","szeofficeadmin","P@ssw0rd"

'*****************************

   

set adminRs = Server.CreateObject("ADODB.Recordset")

adminsql = "select * from sysadmin where admin_id = '"&trim(session("userid"))&"' and admin_type='S' and status='A'"

adminrs.Open adminsql,conn,3,3

if not adminrs.eof then%>

<HEAD>



<meta http-equiv="Content-Type" content="text/html;charset=gb2312"> 



<style>

<!--

h1{color:#004433;text-align:center}

h2{color:#6b8e23;font-size:8pt;font-family:Arial;font-weight:700;}

h3{text-align:center}

h5{color:#ff0000}

-->

</style>

<script language="VBS">

sub add_new

form.action="Question_add.asp"

form.submit 

end sub



sub delete_q(row_num)

dim q_id

q_id="("

for i=0 to row_num-1

    if document.form.checkbox(i).checked=true then

       q_id=q_id&document.form.checkbox(i).value&","

    end if   

next

q_id=left(q_id,len(q_id)-1)&")"

document.form.qid.value =q_id

document.form.M_action.value="D"

if len(trim(document.form.qid.value))<3 then

alert("Sorry,you haven't choosed any item to delete!")

else

form.action="delete.asp"

form.submit

end if

end sub



sub update_q(row_num)

dim q_id

q_id="("

for i=0 to row_num-1

    if document.form.checkbox(i).checked=true then

       q_id=q_id&document.form.checkbox(i).value&","

    end if   

next

q_id=left(q_id,len(q_id)-1)&")"

document.form.qid.value =q_id

document.form.M_action.value ="U"

if len(trim(document.form.qid.value))<3 then

alert("Sorry,you haven't choosed any item to update!")

else

form.action="Delete.asp"

form.submit 

end if

end sub

</script>

</HEAD>

<BODY background= strbkgde.gif bgcolor="#999966" text="#000000" link="#003399" vlink="#660000" alink="#666666">

<form name=form id=form method=post>

<h2>¡¡</h2>

<h2><br>

<a href="test_choose.asp">Main Menu</a> <font color="#FFFFFF">>> 

</font> 

<a href="sysad.asp">System Admin</a> <font color="#FFFFFF">>> Question Maintain

</font>

</h2>

<h1><font face="Verdana" size="5" color="#800000">Compliance CBT Test Questions</font></h1>

<%set quers=server.CreateObject("ADODB.Recordset")

  set countrs=server.CreateObject("ADODB.Recordset")

  quesql="select * from question_db where q_status='A' order by q_id"

  quers.Open quesql,conn,3,3

  

  if not quers.EOF then

  countsql="select count(*) as total from question_db where q_status='A' "

  countrs.Open countsql,conn,3,3

  

  total=countrs("total")

  countrs.Close 

     quers.MoveFirst %>

     <TABLE WIDTH="90%" BORDER=0 CELLSPACING=0 CELLPADDING=0 align=center>

          <tr><td colspan=10 valign="bottom"><h3><font face="Verdana" size="2">

			<br>

						Question List</font></h3>

			</td></tr>

          <tr><td colspan=10><h5>

			<span style="FONT-FAMILY: 'Book Antiqua'">

			<FONT 

      color=#FF0000 face=Arial size="2"> <b>If the answer is multiple-choice, 

			pls use ',' to seperate each choice.</b></FONT></h5>

			</td></tr>

     <%do while not quers.EOF%>

          <tr>

             <td colspan=1><INPUT type="checkbox" id=checkbox name=checkbox value=<%=quers("Q_ID")%>></td>

             <td colspan=9><TEXTAREA rows=5 cols=100 id=textarea<%=quers("q_id")%> name=textarea<%=quers("q_id")%> style="font-family: Arial Unicode MS; border: 1px solid #D2D068; background-color: #E9E8BE" ><%=replace(quers("question"),"@",chr(13))%></TEXTAREA></td></tr>

          <tr>

             <td colspan=1><b><font face="Verdana" size="2">Answer:</font></b></td>

             <td colspan=9><INPUT type="text" id=answer<%=quers("q_id")%> name=answer<%=quers("q_id")%> value="<%=quers("q_answer")%>"></td></tr>

          <tr><td colspan=10><hr></td></tr>

     <%quers.MoveNext 

     loop%>

     </table>

  <%end if%>

  <br><br><INPUT type="text" id=qid name=qid style="width:0px;height:0px;"><INPUT type="text" id=M_action name=M_action style="width:0px;height:0px;">

<TABLE WIDTH="90%" BORDER=0 CELLSPACING=0 CELLPADDING=0 align=center>

       <tr>

          <td align=center>

			<INPUT type="button" value="Add New" id=Add name=add onclick="call add_new" style="font-family: Verdana"></td>

          <td align=center>

			<INPUT type="button" value="Update" id=update name=update onclick="call update_q(<%=total%>)" style="font-family: Verdana"></td>

          <td align=center>

			<INPUT type="button" value="Delete" id=delete name=delete onclick="call delete_q(<%=total%>)" style="font-family: Verdana"></td></tr>

</table>     

<P>¡¡</P>

</form>

</BODY>

</HTML>

<%else

Response.Redirect "default.asp"

end if



adminRS.Close 

end if %>
...全文
250 17 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
fhwrkcg 2008-10-11
  • 打赏
  • 举报
 回复
你用的是英文版的系统或空间吗？在头部加上这个试下。<% @language=vbscript codepage=936%>
什么都不能 2008-10-11
  • 打赏
  • 举报
 回复
先检查一下数据库中的内容是不是乱码
如果数据库中部是乱码就在显示的页面指定字符集
否则在表单指定字符集
Jarvis-Li 2008-10-11
  • 打赏
  • 举报
 回复
看我发的博客里面有关于解决乱码的问题
sy_binbin 2008-10-10
  • 打赏
  • 举报
 回复
<% Session.CodePage=936 %>
<% Response.Charset="GBK" %>

楼主在文件的上面加上这个试试
wenmingcool 2008-10-10
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 zq9811 的回复:]
也可以试一下：整个文件用文本文件打开，另存为 最下面的编码为“ansi”
[/Quote]

这样还是不行，不过谢谢你
大王带我来巡山 2008-10-10
  • 打赏
  • 举报
 回复
也可以试一下：整个文件用文本文件打开，另存为 最下面的编码为“ansi”
大王带我来巡山 2008-10-10
  • 打赏
  • 举报
 回复
<td colspan=9><TEXTAREA rows=5 cols=100 id=textarea<%=quers("q_id")%> name=textarea<%=quers("q_id")%> style="border: 1px solid #D2D068; background-color: #E9E8BE" ><%=replace(quers("question"),"@",chr(13))%></TEXTAREA></td></tr>

把字体设置取消了看
大王带我来巡山 2008-10-10
  • 打赏
  • 举报
 回复
我也遇到过 好像要在txt下加这段才行 直接在dw里加是不行的
wenmingcool 2008-10-10
  • 打赏
  • 举报
 回复 


 <td colspan=9><TEXTAREA rows=5 cols=100 id=textarea<%=quers("q_id")%> name=textarea<%=quers("q_id")%> style="font-family: Arial Unicode MS; border: 1px solid #D2D068; background-color: #E9E8BE" ><%=replace(quers("question"),"@",chr(13))%></TEXTAREA></td></tr>

这里是要显示内容的地方，也是出现乱码的地方
hancheng 2008-10-10
  • 打赏
  • 举报
 回复
再看其它引用的文件有没有内码不统一
myvicy 2008-10-10
  • 打赏
  • 举报
 回复
6楼或9楼的可行。
qqfens 2008-10-10
  • 打赏
  • 举报
 回复
重启下IIS
Atai-Lu 2008-10-10
  • 打赏
  • 举报
 回复
还有，文件其实也有编码的，最好也跟页面指定的编码统一，至少不冲突
街头小贩 2008-10-10
  • 打赏
  • 举报
 回复
？号该encoding跟ASP的运行环境的字符集不统一！你在DW中设一下看看会不会:
编辑>首选参数>新建文档>默认编码
Atai-Lu 2008-10-10
  • 打赏
  • 举报
 回复 


	Response.ContentType = "text/html"

	Response.Charset = "gb2312"

编码要跟页面编码统一
scscms太阳光 2008-10-10
  • 打赏
  • 举报
 回复
可以用记事本打开你的文件,打开另存为窗口,看文件类型是不是UTF-8 ? 如果是就选择类型为:ANSI保存替换它就是
还有,一般我们编辑网页就算没有定义编码,都不会有中文乱码
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<% Session.CodePage=936 %>
<% Response.Charset="GBK" %> 加这些仍没有用就有可能是上面问题
街头小贩 2008-10-10
  • 打赏
  • 举报
 回复
乱码原因归根于字符集
微信公众平台 网页授权获取用户基本信息(asp.net C#)
入口页面： wxProcess.aspx 【自己调通了非常喜悦。好东东，大家分享。 免积分，给个好评哦；）】 微信公众平台 网页授权获取用户基本信息 //获取从wxProcess.aspx传递过来的跳转地址reurl if (Request.QueryString["reurl"] != null && Request.QueryString["reurl"] != "") { reurl = Request.QueryString["reurl"].ToString(); } string code = ""; if (Request.QueryString["code"] != null && Request.QueryString["code"] != "") { //获取微信回传的code code = Request.QueryString["code"].ToString(); OAuth_Token Model = Get_token(code); //获取token OAuthUser OAuthUser_Model = Get_UserInfo(Model.access_token, Model.openid ); if(OAuthUser_Model.openid!=null && OAuthUser_Model.openid !="") //已获取得openid及其他信息 { //在页面上输出用户信息 Response.Write("用户OPENID:" + OAuthUser_Model.openid + "用户昵称:" + OAuthUser_Model.nickname + "性别:" + OAuthUser_Model.sex + "所在省:" + OAuthUser_Model.province + "所在市:" + OAuthUser_Model.city + "所在国家:" + OAuthUser_Model.country + "头像地址:" + OAuthUser_Model.headimgurl + "用户特权信息:" + OAuthUser_Model.privilege); //或跳转到自己的页面，想怎么处理就怎么处理 Response.Redirect(reurl); } }
浪子文章管理程序-特别版
功能： 一、支持UBB代码，自动识别网址！ 二、二级栏目支持、 三、可注册会员、投稿 四、带文章审批功能 五、阅读文章时可自由选择阅读方式、选择字号、颜色等！ 六、自带计数器、在线人数统计、文章统计、会员统计等 七、自带友情链接，可自由添加，由管理员审批后通过！ 八、自带一个简单公告， 九、自带一个留言板，支持UBB、可回复、删除管理 十、算是完整的后台管理，可管理会员、编辑/修改/审批　文章， 十一、改进了作者在发表文章时会自动退出的BUG和代码了一些代码介界之类的东西！ 其它、自已体会....    超级用户名 ddown 密码 ddown 使用数据库:54lz.mdb 要改请改以下三个文件:conn.asp counter.asp 和 mybook目录下的conn.asp 文件,这三个文件内都有相应的说明!
超酷论坛EDD8 Ver.2003 for DV
酷窗版演示：http://www.edd8.com/bbs/index.asp?style=0 简装版演示：http://www.edd8.com/bbs/index2.asp 一点点论坛（http://www.edd8.com/bbs）使用说明 欢迎大家下载使用一点点论坛，在使用论坛前，请认真阅读以下内容： ===================================== 论坛：一点点论坛（http://www.edd8.com/bbs） 主页：一点点星空驿站（http://www.edd8.com/） 站长：叮咚虫（e_Mail:b_li@163.com） 版本：EDD8 Ver.2003 for DV ===================================== 　　一点点论坛是建立在动网论坛基础上的ASP互动论坛，从动网Var5.b109开始论坛结构便开始脱离动网，与动网升级一起，本论坛本身也同时实现了动网新的功能，到519的发布，本人常得论坛本身已功能基本完善，所以决定与动网完全脱离，到动网Final的出现，本论坛也决定不再跟随动网升级了，本人全面对原来的论坛进行了代码优化和版面重排，并升级了部分功能代码，完成了现在这样的论坛。使论坛已经完全脱离了动网，以后也不可以随动网一起升级了！ 　　所以选择本论坛的朋友请先明白，如果采用了本论坛的数据结构，以后就不可以和动网一起升级了，而现有的动网Final版的数据库和本论坛的数据库也是不兼容的！对于动网V5.b519的用户，本人同时在压缩包里提供了升级文件，可以把你519的数据库升级成和本论坛一致的数据结构！ 　　由于一些朋友催得较急，部分功能还是没有完善的（但不会出错），我以后也会给出升级包的。所以决定使用本论坛的朋友，请一定要到本站论坛的“站务办公室”进行指定的留言签名，以好我第一时间通知大家升级！ 　　论坛中使用到的部分插件并没有一同奉上，原因是我还没完成代码优化，请过几天到我的论坛上下载。可以下载的插件主要有：社区银行、网络拳皇、可乐吧台球、五子棋等等…… ===================================== 主要特色功能说明： ◎ 双版面设计，用户可以根据不同爱好选择不同的版式（酷窗版和精简版），系统会记录用户的选择，不用重复选择，也不会出现版面混淆等现象； ◎ 发贴回贴互动功能，给用户随机的互动事件，增加用户的参与兴趣； ◎ 增强的UBB代码和JS代码，新增的买卖贴、定时贴等十几种特色功能UBB代码； ◎ 贴子功能加强，增加互动鲜花、鸡蛋、金钱、炸弹等功能，并保存数据作为用户在论坛的人缘依据； ◎ 不好说了，等你去发掘吧，不然又说我叫卖了…… ====================================== 安装说明： 解压就可以了，数据库名称和路径有变动时不要忘了在CONN。ASP中进行相应修改。 （注意：当论坛中一个贴子也没有时，论坛明星会出错，但当你加入贴子后就正常了，大家不要惊慌） 升级：（对519），解压后把你的原519数据库覆盖现数据库，再执行根目录下的UPDATE。ASP文件就行了，如果没有升级成功的提示，说明你的数据不能进行升级！ （注意：数据库的升级应做了备份，并在本机上进行！） ====================================== 最后一点说明： 由于论坛本来是打算自己用的，所以在设计的过程中部分变量已经去掉，不能从后台设置了（如表格边框），请大家最好保持现有的风格。 如果还不问题，可以到我的论坛上来交流。??注意，由于本人时间不限，技术支持是有限的，请不要过于强求！
天域留言本 Ver1.0 test
很不错的留言薄，可以实现2种风格的自由转换。设计的很漂亮！
天域留言本 Ver1.0 test 1:在bbs.asp 和 default.asp 中加入下一句
value="Upfiles"
则实现，留言层随滚动条上下滚动的和可拖动的效果。但没了双击滚屏的效果。

2:主颜色代码为五种
006633  深绿 标题
70C570  深绿 线条
ff0000  红
EDFAED  浅绿      、回复时底色
F0F9F0  浅绿
在代码text.css中替换即可
关于ASP.NET用VS2012出现数据库内容汉字乱码（中文乱码）或者汉字变问号（中文变问号）的解决办法，非常简单。
软件版本为VS2012旗舰版，数据库为VS2012集成数据库。 首先要统一网页编码为：utf-8，只用注意下面红字的部分 前台代码： charset=utf-8"/>         其次就是建数据库时，将要存储中文的列名的数据类型设置为nvarchar()类型 我建的数据库： CRE
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章