设为首页收藏本站

晨风交流论坛_CMP_CChat_Flash_音乐_视频_播放器_live直播_聊天室

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: cenfun

[下载] CMP4 b120729免费正式版下载

[复制链接]
 楼主| 发表于 2009-2-22 22:09:18 | 显示全部楼层
官方QQ群:102348392 | 捐赠CMP
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"
发表于 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)
%>
 楼主| 发表于 2009-2-23 09:50:18 | 显示全部楼层
说明你的文件编码可能还是utf-8,你先转所有文件成gb2312,这样所有里面的中文字符就会保存为gb2312格式,或者你尝试强制指定输出编码Response.Charset = "gb2312"
发表于 2009-2-23 10:02:38 | 显示全部楼层
哦,在中间加上这个就不出乱码了,不知加这里合不合规范,不管了,解决问题就行了:
response.contentType="text/html"
response.CharSet="GB2312"
发表于 2009-2-23 10:32:22 | 显示全部楼层
先前说支持摄像头,asp空才行么?最好支持皮肤调色!
发表于 2009-2-23 10:33:40 | 显示全部楼层
另通ie支持电视或wmv播放
发表于 2009-2-23 12:41:55 | 显示全部楼层
希望能增加 播放时自动搜索互联网上最佳匹配的歌词 然后显示  就像手机播放器软件天天动听那样
 楼主| 发表于 2009-2-23 12:51:44 | 显示全部楼层
由于flash跨域加载的限制,自动搜歌词必须由程序代理完成,如asp/php等,实现应该也比较简单
发表于 2009-2-23 14:13:36 | 显示全部楼层
恩 强烈建议老大 吧自动获取歌词 功能完成嘿嘿
发表于 2009-2-23 15:06:13 | 显示全部楼层
本帖最后由 颓废 于 2009-2-23 15:07 编辑

昨天在车上想了个好建议,现在想不起来了  晕了哦
看了下更新 很振奋人心,一天一小步,一年一大步。

QQ|客服QQ44023478|Archiver|手机版|小黑屋|晨风交流论坛 ( 粤ICP备05008793号  

GMT+8, 2017-8-19 15:13 , Processed in 0.086912 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表