|
发表于 2009-2-23 09:42:39
|
显示全部楼层
本帖最后由 www654320COM 于 2009-2-23 09:51 编辑
11# www654320COM
现在重点是升级CMP主程序,至于asp多用户版程序问题,请先自行解决,反正程序是开源的
utf-8转bg2312应该比较简单,直接用Adobe Dreamweaver CS3等专业网页编辑工具转码即可
注意转文件编码后 ...
cenfun 发表于 2009-2-22 22:09 
哦,谢谢老大回复了,现在本机修改已完成,在本机测试没大的问题了,但还是有一个问题希望老大帮解决,我对源码是菜鸟来了,就是在注册时,如果输入的用户名已存在,就会出现提示,提示变成了几个问号了,这个提示不能用中文,这里怎么解决呢?其它的提示都没问题.这句代码是这样的(把response.Write("用户名已存在")替换成英文就没问题):
是不是和数据据哪个字段类型有关呀.
<%
end if
end sub
sub verify()
dim rndnum,num1
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
Response.Write(getCode(rndnum))
end sub
sub checkuser()
set rs=conn.Execute("select username from cmp_user where username='"&Checkstr(Request.QueryString("username"))&"'")
if not rs.eof then
response.Write("用户名已存在")
end if
rs.close
set rs=nothing
end sub
sub save_reg()
dim UserName,PassWord,email,qq,cmp_name,cmp_url
dim userstatus
if user_check="1" then
userstatus = "0"
else
userstatus = "5"
end if
UserName=Checkstr(Request.Form("username"))
PassWord=md5(request.Form("password")+UserName,16)
email=Checkstr(Request.Form("email"))
qq=Checkstr(Request.Form("qq"))
cmp_name=Checkstr(Request.Form("cmp_name"))
cmp_url=Checkstr(Request.Form("cmp_url"))
sql = "select username from cmp_user where username='"&UserName&"'"
set rs=conn.Execute(sql)
if rs.eof then
'id,username,password,userstatus,regtime,lasttime,lastip,email,qq,logins,cmp_name,cmp_url,config,list
sql = "insert into cmp_user "
sql = sql & "(username,[password],userstatus,regtime,lasttime,lastip,email,qq,cmp_name,cmp_url) values("
sql = sql & "'"&UserName&"','"&PassWord&"',"&userstatus&","&SqlNowString&","&SqlNowString&",'"&UserTrueIP&"','"&email&"','"&qq&"','"&cmp_name&"','"&cmp_url&"')"
conn.execute(sql)
SucMsg = "您的注册信息已经提交成功。"
if user_check="1" then
SucMsg = SucMsg & "请等待管理员的审核!"
end if
cenfun_suc("index.asp")
else
ErrMsg = "用户名已存在"
cenfun_error()
end if
rs.close
set rs=nothing
end sub
sub goback(msg)
%> |
|