CMP4 b120120免费正式版下载

www654320COM

老大,我解需解决的是gb2312和UTF8共存的问题呀,老大写程序时能不能另存一份gb2312编码的,我站上全是gb2312编码的源码.

cenfun

11# www654320COM

现在重点是升级CMP主程序，至于asp多用户版程序问题，请先自行解决，反正程序是开源的

utf-8转bg2312应该比较简单，直接用Adobe Dreamweaver CS3等专业网页编辑工具转码即可
注意转文件编码后，请修改对应的编码参数，像conn.asp中的
CodePage = "65001"  (codepage=936是简体)
Session.CodePage = 65001 (同上)
Session.LCID = 2057 (可去搜索，有问题再尝试修改)
Response.Charset = "utf-8"
等等
如果仍然有错，可全文搜索Charset 或 utf-8 进行修改，注意需被flash加载的生成文件无需转码

更简单的方法：直接去百度或谷歌搜索 "asp utf 8转gb2312"

www654320COM

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)
%>

cenfun

说明你的文件编码可能还是utf-8，你先转所有文件成gb2312，这样所有里面的中文字符就会保存为gb2312格式，或者你尝试强制指定输出编码Response.Charset = "gb2312"

www654320COM

哦,在中间加上这个就不出乱码了,不知加这里合不合规范,不管了,解决问题就行了:
response.contentType="text/html"
response.CharSet="GB2312"

ytlsl

先前说支持摄像头,asp空才行么?最好支持皮肤调色!

ytlsl

另通ie支持电视或wmv播放

fangyang

希望能增加 播放时自动搜索互联网上最佳匹配的歌词 然后显示  就像手机播放器软件天天动听那样

cenfun

由于flash跨域加载的限制，自动搜歌词必须由程序代理完成，如asp/php等，实现应该也比较简单

fangyang

恩 强烈建议老大 吧自动获取歌词 功能完成嘿嘿