guestadd.asp

1.多种查询方式

				sql = sql + " guest_pycode= '" & py & "',"
				sql = sql + " guest_address= '"&address&"',"			
				sql = sql + " guest_tel= '"&tel&"',"
				sql = sql + " guest_fax= '"&fax&"',"
				sql = sql + " guest_idcard= '"&idcard&"',"
				sql = sql + " guest_takecode= '"&takecode&"',"
				sql = sql + " guest_email= '"&email&"',"
				sql = sql + " guest_addtime= '"&t&"',"
				sql = sql + " guest_lasttime= '"&t&"',"
				sql = sql + " guest_city= '"&city&"',"
				sql = sql + " guest_contact= '"&contact&"',"
				sql = sql + " guest_beizu= '"&beizu&"'"
				sql = sql + " WHERE guest_id = " + curid
				conn.execute sql
				if err.number <> 0 then
					rs7.close
					set rs7 = nothing
					call closedatabase
					if debug = 1 then
						response.write "无法保存,数据库操作出错:" + err.description
						Response.Write "错误程序：" & Err.Source & "<br>"
					else
						Response.Write "运行出现异常，请稍后再试"
					end if
					Response.End 
				else
					'response.write "<center>记录已经更新到数据库。</center>"
					rs7.close
					set rs7 = nothing
					'call closedatabase
					response.write "<script language=javascript>"
					Response.Write "alert(""记录已经添加到数据库！"");"
					if closed <> 0 then
					Response.Write "opener.location.reload();window.close();"
					end if
					Response.Write "</script>"
					'Response.End 
				end if
			else
				rs7.close
				set rs7 = nothing
				call closedatabase
				response.write "<script language=javascript>"
				Response.Write "alert(""该领货人已经存在！"");history.back();</script>"
				Response.End 
			end if
		else
		call closedatabase
		Response.Write "您没有权限做此步操作，想要获得更多权限，请与超级管理员联系！"
		Response.End 
	end if
	rs_guest.close
	set rs_guest = nothing
	end if

end if

dim rs, rs1, sql1, strtype, strvalue

set rs8=server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM guest where guest_companyid = "&newcompanyid&" and guest_flag = 1 order by guest_id desc"
rs8.open sql, conn, 3, 2
	if err.number <> 0 then
				rs8.Close
				set rs8 = nothing
				call closedatabase
				if debug = 1 then
					response.write "无法保存,数据库操作出错:" + err.description
					Response.Write "错误程序：" & Err.Source & "<br>"
				else
					Response.Write "运行出现异常，请稍后再试"
				end if
				Response.End 
	else
		if rs8.eof and rs8.bof then
			response.write "<center>没有记录</center>"
		else
			
sql = "select company_name from company where company_id = "&newcompanyid&""
set rs_company = conn.execute(sql)
company_name = rs_company("company_name")
rs_company.close
set rs_company = nothing
	
 %>

<table border='1' width=100% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'bgcolor='#DADBFC'>
<tr>
 <td colspan=6 align=center bgcolor=red><b><font color=yellow><%Response.Write company_name%> 领货人信息管理</font></b></td>
</tr>
<tr bgcolor=#0000A0>
<td align=center><font color=white>领货人编号</font></td>
<td align=center><font color=white>领货人名称</font></td>
<td align=center><font color=white>电话</font></td>
<td align=center><font color=white>证件号</font></td>

<td align=center><font color=white>操作</font></td></tr>
<% 
dim curpage, i
if request("page")="" then
  	curpage = 1
else
	curpage = clng(request("page"))
end if

rs8.pagesize = 5
rs8.absolutepage = curpage
for i = 1 to rs8.pagesize
guest_code = trim(rs8("guest_code"))
guest_user = trim(rs8("guest_user"))
guest_tel = trim(rs8("guest_tel"))
guest_idcard = trim(rs8("guest_idcard"))
guest_takecode = trim(rs8("guest_takecode"))
%>
<tr>
<td align=center>
<%
if guest_code = "" then 
	Response.Write "&nbsp;"
else
	Response.Write guest_code&"&nbsp;"
end if
%>
</td>
<td align=center>
<%
if guest_user = "" then 
	Response.Write "&nbsp;"
else
	Response.Write guest_user
end if
%>
</td>
<td align=center>
<%
if guest_tel = "" then
	Response.Write "&nbsp;"
else
	Response.Write guest_tel
end if
 %></td>
<td align=center>
<%
if guest_idcard = "" then
	Response.Write "&nbsp;"
else
	Response.Write guest_idcard
end if
 %></td>

<td align=center><a href='guestadd.asp?action=edit&companyid=<%=newcompanyid%>&id=<%= rs8("guest_id") %>&page=<%=curpage%>&closed=<%=closed%>'>编辑</a></td> 
</tr>
<% rs8.movenext
if rs8.eof then
	i = i + 1
	exit for
end if
next %>
</table>
<%		
		response.write "<p align=center>"
		response.write "第" + cstr(curpage) + "页/总" + cstr(rs8.pagecount) + "页 "
		response.write "本页" + cstr(i-1) + "条/总" + cstr(rs8.recordcount) + "条 "
		if curpage = 1 then 
			response.write "首页 前页 "
		else
			response.write "<a href='guestadd.asp?page=1&companyid="&newcompanyid&"'>首页</a> <a href='guestadd.asp?page=" + cstr(curpage-1) + "&companyid="&newcompanyid&"'>前页</a> "
		end if
		if  curpage = rs8.pagecount then
			response.write "后页 末页"
		else
			response.write "<a href='guestadd.asp?page=" + cstr(curpage+1) + "&companyid="&newcompanyid&"'>后页</a> <a href='guestadd.asp?page=" + cstr(rs8.pagecount) + "&companyid="&newcompanyid&"'>末页</a>"
		end if
		
	End If
	
end if
rs8.Close
set rs8 = nothing
 %>
<hr size=1>
<% 
if bedit then
	if curid = "" then
		call closedatabase
		Response.Redirect "guestadd.asp?companyid="&newcompanyid
		Response.End 
	end if
	sql = "SELECT * FROM guest WHERE guest_id =  "&curid&""
	'set rs9 = conn.execute(sql)
	set rs9 = server.CreateObject("adodb.recordset")
	rs9.open sql,conn,3,2
	if rs9.EOF then
		bedit = false
	end if
end if
 %>
 
<form action="guestadd.asp" method="POST" name="guest">
<p align=center><b><% If bedit then %>编辑：<% Else  %>添加：<% End If %></b></p>
<div id="conadd" style="HEIGHT: 32px; LEFT: 67px; POSITION: absolute; TOP: 409px; WIDTH: 144px; Z-INDEX: 1"><APPLET code=code.class height=0 id=py style="HEIGHT: 16px; LEFT: 0px; TOP: 0px; VISIBILITY: hidden; WIDTH: 14px" width=0 VIEWASTEXT>
	</APPLET>
</div>
<table align=center cellspacing="0" cellpadding="2" border="0">
<tr>
    <td width="25%"><b>领货人编号：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="code" size="25" value='<%response.write rs9("guest_code")%>' maxlength='9' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="code" size="25" value='' maxlength='9' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>领货人名称：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="user" size="25" value='<%response.write rs9("guest_user")%>' maxlength='25' onblur="javascript:GetPy();" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="user" size="25" value='' maxlength='25' onblur="javascript:GetPy();" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>拼音编码：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="py" size="25" value='<%response.write rs9("guest_pycode")%>' maxlength='20' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9" >**</td>
	<%else %>
	<input type="Text"  name="py" size="25" value='' maxlength='20' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>所在城市：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="city" size="25" value='<%response.write trim(rs9("guest_city"))%>' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%else %>
	<input type="Text"  name="city" size="25" value='' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>领货人地址：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="address" size="25" value='<%response.write trim(rs9("guest_address"))%>' maxlength='50' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="address" size="25" value='' maxlength='50' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>联系人：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="contact" size="25" value='<%response.write trim(rs9("guest_contact"))%>' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="contact" size="25" value='' maxlength='10' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>联系电话：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="tel" size="25" value='<%response.write trim(rs9("guest_tel"))%>' maxlength='80' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="tel" size="25" value='' maxlength='80' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>传真：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="fax" size="25" value='<%response.write trim(rs9("guest_fax"))%>' maxlength='40' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="fax" size="25" value='' maxlength='40' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>
<tr>
    <td width="25%"><b>证件号：</b></td>
    <td width="75%">
    <%if bedit then%>
    <input type="Text"  name="idcard" size="25" value='<%response.write trim(rs9("guest_idcard"))%>' maxlength='18' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%else %>
	<input type="Text"  name="idcard" size="25" value='' maxlength='18' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></td>
	<%end if%>
</tr>

<tr>
    <td width="25%"><b>备注：</b></td>
    <td width="75%">
    <%if bedit then%>
    <textarea class=smallarea name=beizu rows=3 cols=30 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"><%response.write trim(rs9("guest_beizu"))%></textarea>
    </td>
	<%else %>
	<textarea class=smallarea name=beizu rows=3 cols=30 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></textarea>
	</td>
	<%end if%>
</tr>
<%
 'end if
 if bedit then
	 rs9.close
	set rs9 = nothing
 end if
 call closedatabase
 %>
<tr><td align=center colspan="2">
<input type="Hidden" name="action" value='<% If bedit then%>editsave<% Else  %>newsave<% End If %>'>
<% If bedit then %>
<input type="Hidden" name="id" value='<%= cstr(curid) %>'>
<% End If %>
<input type="Hidden" name="companyid" value='<%= newcompanyid %>'>
<input type="Hidden" name="closed" value='<%= closed %>'>
<input type="Hidden" name=<%= strtype %> value=<%= strvalue %>>
<input  class=buttonface type="Submit" name="btnsave" value="保存">
<input  class=buttonface type="Reset" value="重设"></td></tr>
</table>
</form>
<br><br>
</body>
</FORM>
</html>