英语中国网论坛EnglishChina Forum System

<% Function Rq(s) dim i,tempa s = trim(request.form(s)) if len(s) = 0 then RemoveQuotes = "" exit function end if for i=1 to len(s) if mid(s,i,1) = "'" then tempa = tempa & "´" else tempa=tempa & mid(s, i, 1) end if next Rq=tempa End Function %>

<% set dbmain = server.createobject("adodb.connection") 'dbmain.open "driver={SQL Server};server=flywow;uid=mydb;PWD=e6a2d8k3" dbmain.open "DSN=englishchina;UID=ecdb1;PWD=e6a2d8k3;DATABASE=englishchina" if request.form("name") <> "" then mysql="select ltuser,ltfs,ltpassword,ltemail from ltuser where ltuser='"&rq("name")&"'" set rs=dbmain.execute (mysql) if rs.eof then %> 昵称或密码有误！ <% elseif rs("ltpassword")<>rq("pass") then %> 昵称或密码有误！ <% else session("ltid")=rs("ltuser") session("ltfen")=rs("ltfs") session("ltemail")=rs("ltemail") if rs("ltuser")="circle" then session("bbzz")="2" end if if rs("ltuser")="fh" then session("bbzz")="1" end if if rs("ltuser")="dbl" then session("bbzz")="3" end if response.write ""&session("ltid")&"您好！" response.write ""&"您的分数为："&session("ltfen")&"分" end if else %> <% end if %>

您现在的位置：英语中国网/英语论坛

点击进入英语中国网新版论坛！

<%set rs=server.createobject("adodb.recordset") rs.cursortype=adopenstatic rs.open "select count(q1.date) from q1" ,dbmain t1=rs(0) rs.close rs.open "select count(a1.date) from a1" ,dbmain t1=t1+rs(0) %> <%rs.close%> <%rs.open "select count(date) from q2" ,dbmain t1=rs(0) rs.close rs.open "select count(date) from a2" ,dbmain t1=t1+rs(0) %> <%rs.close%> <%rs.open "select count(date) from q3" ,dbmain t1=rs(0) rs.close rs.open "select count(date) from a3" ,dbmain t1=t1+rs(0) %> <%'rs.close%>

英语中国论坛

EnglishChina Forum System

免费注册
Free Registration

忘记密码
Forgot Your Password?

讨论区
Forum Areas

贴子数
Posts

　最后发表时间
Last Post time

主持人
Host

英语学习
English Learning

<%if not rs.eof then response.write t1%>

<%rs.close rs.open "select date from a1 order by aid desc" ,dbmain if not rs.eof then response.write rs("date")%>

娱乐休闲
Happy Hour

<%if not rs.eof then response.write t1%>

<%rs.close rs.open "select date from a2 order by aid desc" ,dbmain if not rs.eof then response.write rs("date")%>

circle

外教论坛
Foreign Teachers' Area

<%if not rs.eof then response.write t1%>

<%rs.close rs.open "select date from a3 order by aid desc" ,dbmain if not rs.eof then response.write rs("date")%>

只有注册用户才可使用论坛的全部功能，请新用户先注册后再进入讨论区。所有时间均是北京时间。
This is an open, free bulletin board system for English learners in the world. As a guest you will only be able to look. In order to post, or reply, you must sign up. All the time here is Beijing Time.