📄 jsz.asp

📁 我的图书管理系统
💻 ASP
字号:
<% @ LANGUAGE="VBSCRIPT" %>
<%
 OPTION EXPLICIT
 'DIM cm, iLength,Email, MessageEmail, MessageBody, MessageDate, MessageFrom, MessagePrivate, MessageSubject, objConn, objParam, strProvider, strQuery, StrSort, URL, MessageURL, lead_cell, mid_cell, end_cell
 dim cm,jszh,lbh,xm,ich,fzrq,state,strProvider,lead_cell,mid_cell,end_cell,objConn, objParam
 '********** Variable assignments
 lead_cell	= "<TR><TD Align='right' valign='top' width='150'><B><FONT style='font-family:宋体; font-size:9pt;'>"
 mid_cell	= "</FONT></B></TD><TD valign='top'><FONT style='font-family:宋体; font-size:9pt;'>"
 end_cell	= "</FONT></TD></TR>"

'		$Date: 10/20/97 4:17p $
'		$ModTime: $
'		$Revision: 14 $
'		$Workfile: signbook.asp $

If ((request("REQUEST_METHOD") = "POST") and ((request("CONTENT_LENGTH") > 0) and (request("CONTENT_LENGTH") < 1700))) then %>
<% 
	  If request("jszh") <> "" Then
		jszh = request("MessageEmail")
	  Else
		'Email = "无电子邮件"
		msgbox "借书证号不能为空!"
	  End If

	  If request("lbh") <> "" Then
		lbh = Request("lbh")
	  Else
		
	  End If

	  If request("xm") <> "" Then
		 xm = request("xm")
	  Else
		'MessageDate = ( month( now ) & "/" & day( now ) & "/" & year( now ) & " " & time() )
	  End If

	  If request("ich") <> "" Then
		ich = request("ich")
	  Else
		
	  End If

	
	
	
	

	strProvider="database=school;uid=sa;pwd=;dsn=school"

	set cm = Server.CreateObject("ADODB.Command")
	set objConn = server.createobject("ADODB.Connection")
    objConn.Open strProvider

	cm.ActiveConnection = objConn

	cm.CommandText="INSERT INTO tjsz(借书证号,编号,姓名,ic号) VALUES (?, ?, ?, ?)"
	Set objParam=cm.CreateParameter(, 200, , 255, jszh)
		cm.Parameters.Append objParam
	Set objParam=cm.CreateParameter(, 200, , 255, lbh)
		cm.Parameters.Append objParam
	Set objParam=cm.CreateParameter(, 201, , 255, xm)
		cm.Parameters.Append objParam
	Set objParam=cm.CreateParameter(, 201, , 255, ich)
		cm.Parameters.Append objParam
	
	cm.Execute
	%>
<!-- Database Fields -->
<!-- MessagePrivate,MessageDate,MessageFrom,Email,URL,MessageSubject,MessageBody -->
<html>

<head>
<title>致谢！</title>





</head>

<body TopMargin="0" Leftmargin="0" BGColor="#FFFFFF">
<font style="font-family:宋体; font-size:9pt;">

<table BORDER="0" cellspacing="0" cellpadding="1" width="100%" height="100%" class="bg0">
  <tr>
    <td class="bg2" Rowspan="8" Width="20"></td>
    <td class="bg3"><h3>感谢批评和建议！</h3>
    </td>
  </tr>
<% response.write lead_cell & "<B>借书证号:	</B>" & mid_cell & jszh		& end_cell _
					& lead_cell & "<B>类别：</B>" & mid_cell & lbh		& end_cell _
					& lead_cell & "<B>姓名：	</B>" & mid_cell & xm	& end_cell _
					& lead_cell & "<B>ic卡号：	</B>" & mid_cell & ich	& end_cell 
					
	%>
  <tr>
    <td><hr>
    </td>
  </tr>
  <tr>
    <td Align="left"><b><a HREF="signbook.asp">在来宾簿上签名</a></b><br>
    <b><a HREF="guestbk.asp">返回来宾簿</a></b><br>
    <b><a HREF="Default.asp">返回主页</a></b> </td>
  </tr>
</table>
<% Else %>
<HTML>
	<HEAD>
	<TITLE>
	<%
	 If request("private") <> "" Then
		response.write "留言"
	 Else
		response.write "在来宾簿中签名"
	 End If
	%>
	</TITLE>


#include virtual ="/iissamples/homepage/sub.inc"
<%
	 call stylesheet
%>
</HEAD>
<BODY TopMargin=0 Leftmargin="0" BGColor="#FFFFFF">
<form NAME="message" METHOD="POST" ACTION="signbook.asp">
<TABLE BORDER=0 cellspacing=1 cellpadding=1 width=100% height="100%" class=bg0>
	<TR><TD class=bg2 Rowspan="10" Width="20">&nbsp;</TD>
		<TD Colspan=2 Height="20" class=bg3>
		<% If request("private") <> "" Then %>
<h2>留言</h2>
<font style="font-family:宋体; font-size:10.5pt;">
      如果您想留言，请填写下面的表格，然后单击“发送留言”按钮。<br>
      如果您想忽略这一步，请单击“清空字段”按钮。</font>
<INPUT TYPE="HIDDEN" NAME="MessagePrivate" VALUE="-1">
		<% Else %>
      <h2>在来宾簿上签名</h2>
<font style="font-family:宋体; font-size:10.5pt;">
      如果您想在来宾簿上签名，请填写下面的表格，然后单击“发送留言”按钮。<br>
      如果您想忽略这一步，请单击“清空字段”按钮。</font>
<INPUT TYPE="HIDDEN" NAME="MessagePrivate" VALUE="0">
		<% End If %></td>
    </tr>
    <tr>
      <td Colspan="2" Height="20"></td>
    </tr>
<%
	 response.write lead_cell & "姓名：		" & mid_cell & "<INPUT TYPE='text' NAME='jszh'	 Size='66' MAXLENGTH='254' style='color:black; font-family:宋体;font-size:9pt'>"				& end_cell _
				& lead_cell & "电子邮件地址：" & mid_cell & "<INPUT TYPE='text' NAME='lbh'	 Size='66' MAXLENGTH='254' style='color:black; font-family:宋体;font-size:9pt'>"				& end_cell _
				& lead_cell & "主页 URL：	" & mid_cell & "<INPUT TYPE='text' NAME='xm'	 Size='66' MAXLENGTH='254' VALUE='http://' style='color:black; font-family:宋体;font-size:9pt'>"& end_cell _
				& lead_cell & "留言主题：	" & mid_cell & "<INPUT TYPE='text' NAME='ich' Size='66' MAXLENGTH='254' style='color:black; font-family:宋体;font-size:10pt'>"				& end_cell 
				
	%>
    <tr>
      <td Align="right" valign="top" width="150"></td>
      <td Align="left"><input TYPE="submit" VALUE="发送留言"><input TYPE="reset"
      VALUE="清空字段"></td>
    </tr>
    <tr>
      <td Colspan="2" height="4"><hr>
      </td>
    </tr>
    <tr>
      <td Align="left" Colspan="2"><a HREF="guestbk.asp"><b>返回来宾簿</b></a><br>
      <b><a HREF="/">返回主页</a></b>
<INPUT TYPE=hidden name=MessageDate value="<% response.write ( month( now ) & "/" & day( now ) & "/" & year( now ) & " " & time() )%>">
 </td>
    </tr>
  </table>
</form>
<% End If %>
</font>
</body>
</html>
⌨️ 快捷键说明

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