<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if NOT isempty(request("LoginSubmit")) then
dim username,password
username=replace(trim(request("username")),"'","")
password=replace(trim(request("password")),"'","")
if username="" or password="" then
'call MsgBox("对不起，登录失败，请检查您的登录名和密码","None","None")
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from admin where admin='"&username&"' and password='"&password&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if password=rs("password") then
set rs=nothing
response.redirect "right.html"
'call MsgBox("登录成功！","None","None")
else
'call MsgBox("对不起，您的用户名或密码有误！","Back","None")
response.redirect "error.html"
end if
else
'call MsgBox("对不起，您的用户名或密码有误！","Back","None")
response.redirect "error.html"
end if
end if
%>
彩塘中学高考填报志愿咨询活动启事
热烈祝贺我校吴英铭同学荣获中国化学会2005年全国高中生化学竞赛二等奖、广东省一等奖、潮州赛区第一名！
