<% '友益电子试卷系统制作-www.abc101.cn '电子书制作利器-www.yyebook.com '电子书下载-www.pkebook.com '联系邮箱yyebook@qq.com 'softversion=5.1.5 '版权所有,未经许可请勿修改本代码 'yysjrepdimenc xhao= request("xhao") stuname= request("stuname") linkstr="indexkj.asp" admincj="showcj.asp" linkstrone="answerone.asp" op= request("op") csm= "" if op="exit" then stuname="" xhao="" Response.Cookies("answerone")="" Response.Cookies("xhao")="" Response.Cookies("stuname")="" end if cip=request.servervariables("http_x_forwarded_for") if cip="" then cip = request.servervariables("remote_addr") '读取访问者ip 'cip=request.servervariables("remote_host") '这也是读取访问者IP,不知道有何差别! end if ' sjid=Request.Cookies("sjid") set rs=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") set userrs=server.createobject("adodb.recordset") set userrs2=server.createobject("adodb.recordset") sjname="" yysjid="yysjid" prosql="select * from sjini where bz='yysjid'" rs.open prosql,conn,1,1 if rs.recordcount>0 then yysjid=rs("nl") end if rs.close 'Response.Cookies("yysjid")=yysjid prosql="select * from sjini where bz='title'" rs.open prosql,conn,1,1 if rs.recordcount>0 then sjname=rs("nl") Response.Cookies("sjname")=sjname end if rs.close xhaoshow="学号:" prosql="select * from sjini where bz='xhaoshow'" rs.open prosql,conn,1,1 if rs.recordcount>0 then xhaoshow=rs("nl") end if rs.close Response.Cookies("xhaoshow")=xhaoshow stunameshow="姓名:" prosql="select * from sjini where bz='stunameshow'" rs.open prosql,conn,1,1 if rs.recordcount>0 then stunameshow=rs("nl") end if rs.close Response.Cookies("stunameshow")=stunameshow usercanreg="0" prosql="select * from sjini where bz='usercanreg'" rs.open prosql,conn,1,1 if rs.recordcount>0 then usercanreg=rs("nl") end if rs.close markemail="" prosql="select * from sjini where bz='markemail'" rs.open prosql,conn,1,1 if rs.recordcount>0 then markemail=rs("nl") end if rs.close Response.Cookies("markemail")=markemail usesm="" prosql="select * from sjini where bz='usersm'" rs.open prosql,conn,1,1 if rs.recordcount>0 then usesm=rs("nl") end if rs.close usesm=replace(usesm,"‘","'") usesm=replace(usesm,"“","""") htmllink="" prosql="select * from sjini where bz='htmllink'" rs.open prosql,conn,1,1 if rs.recordcount>0 then htmllink=rs("nl") end if rs.close htmllink=replace(htmllink,"‘","'") htmllink=replace(htmllink,"“","""") Response.Cookies("htmllink")=htmllink timescript="" prosql="select * from sjini where bz='timescript'" rs.open prosql,conn,1,1 if rs.recordcount>0 then timescript=rs("nl") end if rs.close timescript=replace(timescript,"‘","'") timescript=replace(timescript,"“","""") Response.Cookies("timescript")=timescript htmlbody="" prosql="select * from sjini where bz='htmlbody'" rs.open prosql,conn,1,1 if rs.recordcount>0 then htmlbody=rs("nl") end if rs.close htmlbody=replace(htmlbody,"‘","'") htmlbody=replace(htmlbody,"“","""") Response.Cookies("htmlbody")=htmlbody htmlbodyjd="" prosql="select * from sjini where bz='htmlbodyjd'" rs.open prosql,conn,1,1 if rs.recordcount>0 then htmlbodyjd=rs("nl") end if rs.close htmlbodyjd=replace(htmlbodyjd,"‘","'") htmlbodyjd=replace(htmlbodyjd,"“","""") Response.Cookies("htmlbodyjd")=htmlbodyjd htmlzj="" prosql="select * from sjini where bz='htmlzj'" rs.open prosql,conn,1,1 if rs.recordcount>0 then htmlzj=rs("nl") end if rs.close htmlzj=replace(htmlzj,"‘","'") htmlzj=replace(htmlzj,"“","""") Response.Cookies("htmlzj")=htmlzj logourl="" prosql="select * from sjini where bz='logo1'" rs.open prosql,conn,1,1 if rs.recordcount>0 then logourl="logo/"&rs("nl") end if rs.close ' If Request.ServerVariables("Request_Method")="POST" Then if not isempty(request("gologin")) then if trim(session("validateCode")) <> trim(Request("txt_check")) then ErrorMessage = "请输入正确的验证码" response.write(" ") 'response.end else if op="1" then If stuname<>"" Then csm= stunameshow&"错误" if stuname ="管理员" then prosql="select * from stuxx where stuname='"&stuname&"'" rs.open prosql,conn,1,1 if rs.recordcount>0 then if rs("stuxh")=xhao then Response.Cookies("stuname")=stuname Response.Cookies("xhao")=xhao Response.Redirect(admincj) else csm=xhaoshow&"错误" end if end if else prosql="select * from sjini where bz='noshowml'" rs.open prosql,conn,1,1 if rs.recordcount>0 then Response.Cookies("noshowml") =rs("nl") end if rs.close logincheck="1" prosql="select * from sjini where bz='logincheck'" rs.open prosql,conn,1,1 if rs.recordcount>0 then logincheck=rs("nl") end if rs.close Response.Cookies(yysjid&"logincheck")=logincheck answerone="0" prosql="select * from sjini where bz='answerone'" rs.open prosql,conn,1,1 if rs.recordcount>0 then answerone=rs("nl") end if rs.close if logincheck="0" then if stuname="" then csm=stunameshow&"不能为空" else if xhao="" then csm=xhaoshow&"不能为空" else csm="" Response.Cookies("stuname")=stuname Response.Cookies("xhao")=xhao Response.Redirect(linkstr) end if end if else if logincheck="2" then prosql="select * from usexx where username='"&stuname&"'" userrs.open prosql,userconn,1,1 if userrs.recordcount>0 then promm=NC_Encode.mm(Replace(xhao, "'", "")) if userrs("pasmm")=promm then prosql="select * from usepz where useid="&userrs("id") userrs2.open prosql,userconn,1,1 if userrs2.recordcount>0 then if userrs2("issh")="1" then if cdate(userrs2("usedtime"))>now then if userrs2("yysjbit")>userrs2("yysjbitused") then Response.Cookies(yysjid&"yysjbit")=userrs2("yysjbit") Response.Cookies(yysjid&"yysjbitused")=userrs2("yysjbitused") Response.Cookies(yysjid&"usejb")=userrs2("usejb") csm="" Response.Cookies("stuname")=stuname Response.Cookies("stuid")=userrs("id") Response.Cookies("xhao")=xhao Response.Redirect(linkstr) else csm=" 已经没有试卷币了,请向制作者购买吧!" end if else csm=stuname&" 已经到期!" end if else csm=stuname&"还未审核!" end if else csm=stuname&"还未审核!" end if userrs2.close else csm=xhaoshow&"错误 !" end if else csm=stuname&"未注册,请先注册!" end if userrs.close userconn.close else prosql="select * from stuxx where stuname='"&stuname&"'" rs.open prosql,conn,1,1 if rs.recordcount>0 then if answerone="1" then prosql="select * from sjtable where stuname='"&stuname&"'" rs2.open prosql,conn,1,1 if rs2.recordcount=0 then if rs("stuxh")=xhao then csm="" Response.Cookies("stuname")=stuname Response.Cookies("answerone")=answerone Response.Cookies("xhao")=xhao '只答一次 Response.Redirect(linkstr) else csm=xhaoshow&"错误1!!" end if else csm="已经答完题了,不需要再进行答题!" end if rs2.close else if rs("stuxh")=xhao then csm="" Response.Cookies("stuname")=stuname Response.Cookies("xhao")=xhao Response.Redirect(linkstr) 'Response.Write(""); else csm=xhaoshow&"错误!" end if end if else csm="没有 "&stuname&" 的用户!" end if rs.close end if end if end if else csm=stunameshow&"不能为空" end if end if end if end if %> 登录
    1. <th id="x3jt6"></th>

      1. <th id="x3jt6"></th>


        1. <%if logourl<>"" then%> <%else%> <%end if%> <%if htmllink<>"" then%> <%end if%>

           <%=sjname%>

          登 录

           <%=sjname%>

          登 录

          <%=xhaoshow%>    <%if usercanreg="1" then%> 用户注册 <%end if%>
          <%=stunameshow%>    <%=csm%>
          输入验证码:    验证码,看不清楚?请点击刷新验证码  

          <%if usesm<>"" then%>
          <%end if%>
          <%if usesm<>"" then%>
            <%=usesm%>  
          <%end if%>

          <%=htmllink%>
          大发快3骗局 <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链> <% Set rs = Nothing Set rs2 = Nothing conn.close%>