📄 func.asp

📁 单版面小型论坛单版面小型论坛
💻 ASP
字号:
<%

sub logchk(userid,password)
    if userid="" or password="" then
        session.abandon
        errmsg="请 您 重 新 登 录 ！ 谢 谢 ！"
        errshow(errmsg)
    else
   
    set readreco=server.createobject("adodb.recordset")
    readstr="select * from manboard where userid='" &userid& "' and password='" &password& "'"
    readreco.open readstr,conn,1,1
    if not readreco.eof then
        session("userid")=trim(readreco("userid"))
        session("password")=trim(readreco("password"))
        session("manbid")=readreco("manbid")
        set readreco=nothing
        exit sub
    else
        session.abandon
        errmsg="请 您 重 新 登 录 ！ 谢 谢 ！"
        errshow(errmsg)
    end if
    end if
end sub

sub logwrite(userid)

     Set cmdTemp = Server.CreateObject("ADODB.Command")
	 Set insert = Server.CreateObject("ADODB.Recordset")
	     cmdTemp.CommandText="SELECT * FROM loginfo WHERE (userid IS NULL)"
         cmdTemp.CommandType = 1
         Set cmdTemp.ActiveConnection = conn
  	     insert.Open cmdTemp, , 1, 3
	     insert.AddNew
	     insert("userid")=userid
	     insert("intime")=now()
		 insert.update
	     if err.number<>0 then
                 response.write "数据库操作失败："&err.description
                 response.end
         end if

	set insert=nothing
	set cmdTemp=nothing
end sub


'显示出错过程。
sub errshow(errmsg)
	response.write "<html>"
	response.write "<head>"
	response.write "<title>my bbs－出错啦！</title>"
	response.write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
	response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
	response.write "</head>"
	response.write "<body bgcolor='#FFFFFF' background='images/bg.gif'>"
	response.write "<center>"
	response.write "<table width='80%' border='0' cellspacing='2' cellpadding='2' class=buinput>"
	response.write "<tr>"
	response.write "<td align='center' height='40'>出 现 错 误"
	response.write "</td></tr>"
	response.write "<tr>"
	response.write "<td align='center' height='40'>"&errmsg
	response.write "</td></tr>"
	response.write "<tr>"
	response.write "<td align='center' height='40'><a href='javascript:history.go(-1)'>返回</a>"
	response.write "</td></tr>"
	response.write "</table>"
	response.write "</center>"
	response.write "</body>"
	response.write "</html>"
	response.end
end sub

function IsValidEmail(email)

 dim names, name, i, c

 'Check for valid syntax in an email address.

 IsValidEmail = true
 names = Split(email, "@")
 if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
 end if
 for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
 next
 if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
 end if
 i = Len(names(1)) - InStrRev(names(1), ".")
 if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
 end if
 if InStr(email, "..") > 0 then
   IsValidEmail = false
 end if

end function
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -