服务器对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/80/chat.asp，行199
无效的 ProgID。 若要获取关于此消息的更多的信息，请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp 。 在线等 chat.asp源文件： <% '物品添加 function wpadd(wpadd_name,wpadd_user,wpadd_sl) '物品名，账号，数量，类别 wpadd=0 Set conn_wp = Server.CreateObject("ADODB.CONNECTION") Set rs_wp = Server.CreateObject("ADODB.RecordSet") conn_wp.Open Application("sjjh_usermdb") rs_wp.open "select * from sjjh_wpname where wp_user='" & wpadd_user & "' and wp_name='"& wpadd_name &"' and wp_sl>0" ,conn_wp,1,3 If rs_wp.Bof and rs_wp.Eof then rs_wp.close '查找数据库中已删除记录使用删除亡不保存新物品 rs_wp.open "select * from sjjh_wpname where wp_sl=0" ,conn_wp,1,3 If rs_wp.Bof and rs_wp.Eof then rs_wp.addnew end if wpadd=wpadd_sl '返回数量 rs_wp("wp_sl")=clng(wpadd_sl) else wpadd=rs_wp("wp_sl")+clng(wpadd_sl) '返回数量 rs_wp("wp_sl")=rs_wp("wp_sl")+clng(wpadd_sl) end if rs_wp("wp_user")=wpadd_user rs_wp("wp_name")=wpadd_name rs_wp.update rs_wp.close set rs_wp=nothing conn_wp.close set conn_wp=nothing end function '物品减少 function wpjian(wpjian_name,wpjian_user,wpjian_sl)'物品名，账号，数量，类别 wpjian=true Set conn_wp = Server.CreateObject("ADODB.CONNECTION") Set rs_wp = Server.CreateObject("ADODB.RecordSet") conn_wp.Open Application("sjjh_usermdb") rs_wp.open "select * from sjjh_wpname where wp_user='" & wpjian_user & "' and wp_name='"& wpjian_name &"' and wp_sl>=" & wpjian_sl,conn_wp,1,3 If rs_wp.Bof and rs_wp.Eof then rs_wp.close set rs_wp=nothing conn_wp.close set conn_wp=nothing wpjian=false exit function end if rs_wp("wp_sl")=rs_wp("wp_sl")-abs(clng(wpjian_sl)) rs_wp.update rs_wp.close set rs_wp=nothing conn_wp.close set conn_wp=nothing end function '处理字段类文字消息 Function showxx(mystrm) mystrm=replace(mystrm,"jh_wgj","武功") mystrm=replace(mystrm,"jh_wgj","武功加") mystrm=replace(mystrm,"jh_hyjk","金卡") mystrm=replace(mystrm,"allvalue","存点") mystrm=replace(mystrm,"jh_yl","银两") mystrm=replace(mystrm,"jh_ck","存款") mystrm=replace(mystrm,"jh_jb","金币") mystrm=replace(mystrm,"jh_tlj","体力加") mystrm=replace(mystrm,"jh_tl","体力") mystrm=replace(mystrm,"jh_nlj","内力加") mystrm=replace(mystrm,"jh_nl","内力") mystrm=replace(mystrm,"jh_gjj","攻击加") mystrm=replace(mystrm,"jh_gj","攻击") mystrm=replace(mystrm,"jh_fyj","防御加") mystrm=replace(mystrm,"jh_fy","防御") mystrm=replace(mystrm,"jh_dd","道德") mystrm=replace(mystrm,"jh_ml","魅力") mystrm=replace(mystrm,"jh_zs","转生") mystrm=replace(mystrm,"jh_sex","性别") mystrm=replace(mystrm,"jh_hydj","会员等级") mystrm=replace(mystrm,"jh_peiou","配偶") mystrm=replace(mystrm,"jh_lover","情人") mystrm=replace(mystrm,"jh_mp","门派") mystrm=replace(mystrm,"jh_sf","身份") mystrm=replace(mystrm,"jh_sifu","师傅") mystrm=replace(mystrm,"jh_bw","宝物") mystrm=replace(mystrm,"jh_tjf","通缉") mystrm=replace(mystrm,"jh_ziz","知质") mystrm=replace(mystrm,"jh_mf","魔法") mystrm=replace(mystrm,"jh_dj","等级") mystrm=replace(mystrm,"jh_srs","杀人数") mystrm=replace(mystrm,"jh_zsr","总杀人") mystrm=replace(mystrm,"jh_zz","种族") showxx=mystrm end function 'npc 群攻击 Function ifqun(npcname, inroom) set xajh=Server.CreateObject("anjh80.chat") ifqun=xajh.ifqun(npcname, inroom) set xajh=nothing end function '删除npc Sub delnpc(npcname, inroom) set xajh=Server.CreateObject("anjh80.chat") call xajh.delnpc(npcname, inroom) set xajh=nothing end sub '处理npc的物品 Function npcwp(toname, data, diesl, dj1, dj2) set xajh=Server.CreateObject("anjh80.chat") npcwp=xajh.npcwp(toname, data, diesl, dj1, dj2) set xajh=nothing end function 'npc数据 Function npczj(npcname, color) set xajh=Server.CreateObject("anjh80.chat") npczj=xajh.npczj(npcname, color) set xajh=nothing end function '判断是否为npc function isnpc(towho) set xajh=Server.CreateObject("anjh80.chat") isnpc=xajh.isnpc(towho) set xajh=nothing end function '读取npc 数据 Function readnpc(npcname, v) set xajh=Server.CreateObject("anjh80.chat") readnpc=xajh.readnpc(npcname, v) set xajh=nothing end function '修改npc数据 Sub modinpc(npcname, v, num) set xajh=Server.CreateObject("anjh80.chat") call xajh.modinpc(npcname, v, num) set xajh=nothing end sub 'npc 攻击 Function npcattack(name, toname) set xajh=Server.CreateObject("anjh80.chat") npcattack=xajh.npcattack(name, toname) set xajh=nothing end function '文字秀 Function chatshow(fn1, fs) set xajh=Server.CreateObject("anjh80.chat") chatshow=xajh.chatshow(fn1, fs) set xajh=nothing end function '增加用户到名单中 sub addonline(name,data,inroom) set xajh=Server.CreateObject("anjh80.chat") call xajh.addonline(name,data,inroom) set xajh=nothing end sub '从名单中删除用户 sub droponline(name,inroom) set xajh=Server.CreateObject("anjh80.chat") call xajh.droponline(name,inroom) set xajh=nothing end sub '用户是否在线 function isonline(name,inroom) set xajh=Server.CreateObject("anjh80.chat") isonline=xajh.isonline(name,inroom) set xajh=nothing end function '添加话到聊天室中 sub addsay(inroom,name,addsays,towho,addwordcolor,saycolor,says,act,towhoway) set xajh=Server.CreateObject("anjh80.chat") call xajh.addsay(inroom,name,addsays,towho,addwordcolor,saycolor,says,act,towhoway) set xajh=nothing end sub '踢出聊天室 sub boot(toname) set xajh=Server.CreateObject("anjh80.chat") call xajh.boot(toname) set xajh=nothing end sub '取聊天数据 function onlinedata(name,inroom,datasn) set xajh=Server.CreateObject("anjh80.chat") onlinedata=xajh.onlinedata(name,inroom,datasn) set xajh=nothing end function '修改聊天数据 sub modionline(name,inroom,datasn,data) set xajh=Server.CreateObject("anjh80.chat") call xajh.modionline(name,inroom,datasn,data) set xajh=nothing end sub '聊天室数据刷新显示 sub showsay() set xajh=Server.CreateObject("anjh80.chat") call xajh.showsay() set xajh=nothing end sub '半解转换全角，使用这个可以针对非法数据提交。没有处理# 及 % function rechar(data) set xajh=Server.CreateObject("anjh80.chat") rechar=xajh.rechar(data) set xajh=nothing end function '判断提交数据是否正确 function subdata(data) set xajh=Server.CreateObject("anjh80.chat") subdata=xajh.subdata(data) set xajh=nothing end function '判断非法站外提交 function ChkPost() set xajh=Server.CreateObject("anjh80.chat") ChkPost=xajh.ChkPost() set xajh=nothing end function
sub bdhy() '如果是会员则不再进行判断 if session("sjjh_hydj")>0 then exit sub end if myfilename=Request.ServerVariables("PATH_TRANSLATED") do while instr(myfilename,"\")<>0 myfilename=mid(myfilename,instr(myfilename,"\")+1) loop myfilename=lcase(left(myfilename,instr(myfilename,".")-1)) '在这里session("sjjh_hydj") 为0时就表示非会员，当然你也可以判断更高一级的会员. if session("sjjh_hydj")=0 and instr("," & Application("sjjh_hygn") & ",","," & myfilename & ",")<>0 then Response.Write "<script Language=Javascript>alert('提示:您好，此功能是会员专用功能，\n您不是会员不可以使用,请办理会员!');window.close();</script>" Response.End end if end sub '转换判断非法Sql资料 Function mysqlstr(mystr) mysqlstr=trim(mystr) mysqlstr = Replace(mysqlstr,"<br>",chr(13)&chr(10)) mysqlstr = Replace(mysqlstr,"<BR>",chr(13)&chr(10)) mysqlstr = Replace(mysqlstr,"<bR>",chr(13)&chr(10)) mysqlstr = Replace(mysqlstr,"<Br>",chr(13)&chr(10)) mysqlstr = Replace(mysqlstr,Chr(0),"") mysqlstr = Replace(mysqlstr,chr(39),"’") mysqlstr = Replace(mysqlstr,";","；") mysqlstr = Replace(mysqlstr,chr(34),"") mysqlstr = Replace(mysqlstr,"char","ｃhar") mysqlstr = Replace(mysqlstr,"drop","ｄrop") mysqlstr = Replace(mysqlstr,"exe","ｅxe") mysqlstr = Replace(mysqlstr,"select","ｓelect") mysqlstr = Replace(mysqlstr,">",">") mysqlstr = Replace(mysqlstr,"<","<") mysqlstr = Replace(mysqlstr,"=","＝") End Function %>
