book_in1.inc

物业管理和办公自动化系统

<%
'#############################################################################################
'#
'#	文件名	 : book_in1.inc
'#
'#
'#	创建人	 : 姚晓辉
'# 　	日　期	 : 2002-05-13
'#
'#	修改历史  : ****年**月**日 ****** 修改内容:**********************************************
'#
'#	功能描述	 : 新增图书前检查是否已存在
'# 　	版  　本	 :
'#	
'#	Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'#############################################################################################

Function FirstForm()
	FirstForm = _
	 "<form method=post name=""frmAddBook"" action=""book_in1.asp"" onsubmit=""return(CheckInput());"">" & vbLF & _
	 "<input type=""hidden"" name=""step"" value=""2"">" & vbLF & _
	 "<table width=600 cellspacing=2 cellpadding=2 align=center background=""images/bgdots.gif"">" & vbLF & _
	 "      <tr bgcolor=""#0040a0"" height=15 align=center style=""font-weight:600;color:white"">" & vbLF & _
	 "              <td>第一步：</td></tr>" & vbLF & _
	 "      <tr bgcolor=white height=200 align=center>" & vbLF & _
	 "	        <td><span id=""tip"" style=""color:red"">" & sTip & "</span><br>" & vbLF & _
	 "	        <br>书 名：　<input type=""text"" name=""name"" value=""" & sName & """ size=20 maxlength=20>" & _
	 "	        <br>&nbsp;" & vbLF & _
	 "	        <br>ISBN：　<input type=""text"" name=""isbn"" value=""" & sIsbn & """ size=20 maxlength=20></td></tr>" & vbLF & _
	 "	<tr bgcolor=white align=center>" & vbLF & _
	 "		<td><input type=""image"" src=""images/button_2.gif"" style=""border-width:0""></td></tr>" & vbLF & _
	 "	<tr bgcolor=white height=2><td></td></tr>" & vbLF & _
	 "</table>" & vbLF & _
	 "</form>" & vbLF
End Function

Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
		"<tr height=10>" & vbLF & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr>" & vbLF & _
		"	<td width=600>&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""categoryedit.asp"">类别管理</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""book_q.asp"">图书查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""OK.asp"">OK</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""OK.asp"">OK</a></td>" & vbLF & _
		"</tr>" & _
		"</table>"
End Function

sub CheckISBN()
	dim sIsbn	:	sIsbn = GetParam("isbn")

	'' 检查是否存在相同的书号，如果有，则需要重新提交，如果没有，则新增
	dim sSQL, iRows
	iRows = DLookUp(dbLocal, "t_Library", "count(*)", "isbn = " & ToSQL(sIsbn,"Text"))
	sTip= ""
	if iRows > 0 then
		pStep = 1
		sTip = "对不起，书号为 " & sIsbn & " 的图书已经存在！"
	else
		pStep = 2
	end if
end sub

Function SecondForm()
	dim sName, sIsbn
	sName = GetParam("name")
	sIsbn = GetParam("isbn")

	dim FormParams
	FormParams = ToURL("name=" & sName & "&isbn=" & sIsbn & "&")
	SecondForm = _
		"<form method=post name=""frmAddBook"" action=""book_in1.asp"" onsubmit=""return(CheckInput());"">" & vbLF & _
		"<input type=""hidden"" name=""step"" value=""3"">" & vbLF & _
		"<table width=600 cellspacing=2 cellpadding=2 align=center background=""images/bgdots.gif"">" & vbLF & _
		"		<tr bgcolor=""#0040a0"" height=15 align=center style=""font-weight:600;color:white"">" & vbLF & _
		"				<td><span id=""title"">第二步：</span></td></tr>" & vbLF & _
		"		<tr bgcolor=white height=200 align=center>" & vbLF & _
		"				<td><span id=""tip"">请确认以下信息，如果正确，请按下一步，否则按上一步</span><br>" & vbLF & _
		"				<br>书 名：　<input type=""text"" name=""name"" value=""" & sName & """ size=20 maxlength=20 style=""border-color:white"" readonly>" & _
		"				<br>&nbsp;" & vbLF & _
		"				<br>ISBN：　<input type=""text"" name=""isbn"" value=""" & sIsbn & """ size=20 maxlength=20 style=""border-color:white"" readonly></td></tr>" & vbLF & _
		"		<tr bgcolor=white align=center>" & vbLF & _
		"				<td>" & _
						"<img id=""btnLastStep"" border=0 src=""images/button_1.gif"" onclick=""frmAddBook.step.value='1';frmAddBook.submit();"">" & vbLF & _
						"&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
						"<input type=""image"" src=""images/button_2.gif"" style=""border-width:0""></td></tr>" & vbLF & _
		"		<tr bgcolor=white height=2><td></td></tr>" & vbLF & _
		"</table>" & vbLF & _
		"</form>" & vbLF
End Function

Sub AddBook()
	dim sSQL, book_id

	sSQL = " insert into t_Library(name,isbn) values(" & ToSQL(sName, "Text") & ", " & ToSQL(sIsbn, "Text") & ")"	
	dim crs	: set crs = New CRecordset
	dim rs	: set rs = crs.open(dbLocal,sSQL)
	
	sSQL = " select *from t_Library where isbn = " & ToSQL(sIsbn,"Text")
	dim crs1 : set crs1 = New CRecordset
	dim rs1	 : set rs1 = crs1.open(dbLocal,sSQL)
	if NOT rs1.EOF then
	book_id = crs1.GetValue("no")
	end if
	
	if CInt(book_id) = 0 then
		Response.Write "<script language=""javascript"">出错啦！</script>"
	else
		Response.Clear
		Response.Redirect("book_in2.asp?book_id=" & book_id)
		Response.end
	end if
End Sub

%>