login.asp

使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl

<%If request("Request_Method")="POST" then
  cname=UCase(Request("cname"))
  pwd=Request("pwd")
  Set conn = Server.CreateObject("ADODB.Connection")
  Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
  DBPath = "Data Source=" & Server.MapPath("aspupload.mdb")
  conn.Open Provider & DBPath
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from Members where cname='"&cname&"'"
  rs.open sqlstr,conn,3,2
  If rs.Recordcount=0 Then
    Response.write "<center><font size=5 color=red>穦