📄 login1.asp

📁 该资料包含大量网络开发的案例和源代码

💻 ASP

字号:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>

<body>
<%
    name=trim(Request.form("t1"))
    no=request.form("t2")
    zy=request.form("t3")
    mail=request.form("t4")
	py=request("checkbox")
    if name="" or no="" then
      Response.Write "信息不完整，请重新输入！"
      Response.write("<Form Method=post action=default.htm> <input type=submit value=返回></form>")
      Response.End
   else
   	set Conn=Server.CreateObject("ADODB.connection")
   	constr="Provider=microsoft.jet.oledb.4.0;Data source=" & Server.mappath("mydb.mdb")
   	conn.Open constr
   	set rs1=Server.CreateObject("ADODB.RecordSet")
'   	sql="select * from link where trim(name) = '" & name & "' and trim(no) ='" & no & "'"
   	sql="select * from link where no ='" & no & "'"
   	rs1.Open sql,conn,2,3
  '********
  	response.write sql
  	response.write py  
    if rs1.eof then
   		rs1.addnew
   		rs1("name")=name
   		rs1("no")=no 
  		rs1("zy")=zy
		rs1("py")=py
		rs1("mail")=mail
 		rs1("submit_date")=date
		rs1.update
	 	Dim FsObject
     	Dim tmpFolder
     	Set FsObject = server.CreateObject("Scripting.FileSystemObject")
     	tmpFolder ="c:\web\" &  no	
'     tmpFolder = Server.MapPath("web") & "\" & no	
	 	If Not FsObject.FolderExists(tmpFolder) Then
        	FsObject.CreateFolder(tmpFolder)
        	If Err.Number<>0 Then
            	server.Echo "创建目录" & tmpFolder & "失败！"
        	End If
        	Response.Write "已经为你创建了目录用于上传作业！"
     	end if
   '******
   else
   	response.write "<center>对不起，你已经登记过了！<br><br>"
   	response.write "<a href=register.htm>请返回登记表页面。</a></center>"
   end if

end if
   rs1.close
   conn.close


%>
</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -