📄 f_cpinfo2.asp
字号:
<!--#include file="../include/Pubconn.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>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<%
'**************************
'
'Author:Ruphi Writing Time:2001-08-27
'功能说明：客房丢失报告中的产品选择，并传过来二个参数
'
'**************************
%>
<%
'带过来二个参数值
ID=request("ID")
'Response.write ID
spxh=request("spxh") '当前页面提交后的值
spmc=request("spmc")
%>
<%
set RScp=server.createobject("adodb.recordset")
str="select * from A_ProductInfo where (delflag<>'1') "
if spxh<>"" then
str=str&"and ProdCode like '"&spxh&"%' "
end if
if spmc<>"" then
str=str&" and ProdName like '%"&spmc&"%' "
end if
'if spmc<>"" and spxh<>"" then
' str=str&"where ProdCode like '"&spxh&"%' and ProdName like '%"&spmc&"%' "
'end if
RScp.open str ,pubconn,1
'response.write str
%>
<script language="vbscript">
sub GoPage()
spxh=document.form1.spxh.value
spmc=document.form1.spbm.value
ID=document.myform.ID.value
page1=document.myform.page1.value
a="F_CpInfo2.asp?page="+page1+"&spxh="+spxh+"&spmc="+spmc+"&ID="+ID
window.location=a
end sub
sub winsub()
window.myform.submit
window.close
end sub
</script>
<form method="post" action="F_CpInfo2.asp" name="form1">
<p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font>
<font size="2">产品信息查询
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
</center>
</div>
<input type="hidden" name="ID" value="<%=ID%>">
<table border="0" cellspacing="0" width="630" align="center" width="630" width="636">
<tr>
<td width="12%" align="center" width="151" width="150" bgcolor="#F1E8DA">
<p align="right">
<font size="2">产品序号
</font>
</p>
</td>
<td width="19%" align="center" width="104" width="104" bgcolor="#F1E8DA">
<p align="left">
<input type="text" name="spxh" size="15">
</p>
</td>
<td width="11%" align="center" width="96" width="123" bgcolor="#F1E8DA">
<p align="right">
<font size="2">产品名称
</font>
</p>
</td>
<td width="29%" align="center" width="263" width="243" bgcolor="#F1E8DA">
<p align="left">
<input type="text" name="spmc" size="17">
<inpty type="hidden" name="bz" value="1">
<input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</p>
</td>
</tr>
</table>
</form>
<%
if RScp.eof then%>
<center><b><p>
<font size="2">没有符合条件的记录！
</font>
</b></center>
<%else
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
RScp.pagesize=10
if page>=RScp.pagecount then
page=RScp.pagecount
else
if page<1 then
page=1
end if
end if
RScp.absolutepage=page
%>
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">
<tr> <form name="myform" method="post" action="F_swhtedit.asp" target="main">
<td width="37" height="24" align="center" width="122" bgcolor="#D9C8A7">
</td>
<td width="144" height="24" align="center" width="131" bgcolor="#D9C8A7">
<font size="2">产品名称
</font>
</td>
<td width="161" height="24" align="center" width="84" bgcolor="#D9C8A7">
型号
</td>
<td width="157" height="24" align="center" width="84" bgcolor="#D9C8A7">
规格
</td>
<td width="73" height="24" align="center" width="120" bgcolor="#D9C8A7">
<font size="2">销售单价
</font>
</td>
</tr>
<% for n=1 to RScp.pagesize%>
<%if n mod 2=1 then
bg="#f7f7f7"
else
bg="#EDEBEC"
end if%>
<tr bgcolor="<%=bg%>">
<td width="37" height="23" align="center" width="122">
<p align="left">
<font size="2"></font>
<input type="radio" value="<%=rscp("ProdCode")%>" name="spxh">
</p>
</td>
<td width="144" height="23" align="center" width="131"><font size="2"><%=RScp("ProdName")%>
</font>
</td>
<td width="161" height="23" align="center" width="84"><font size="2"><%=RScp("Model")%>
</font>
</td>
<td width="157" height="23" align="center" width="84"><font size="2"><%=RScp("Standard")%>
</font>
</td>
<td width="73" height="23" align="center" width="120"><font size="2"><%=RScp("SalePrice")%> </td>
</tr>
<%
RScp.movenext
if RScp.eof then exit for
next
%>
</table>
<input type="hidden" name="ID" value="<%=ID%>">
<p align="center">
<font size="2">
共<%=RScp.pagecount%>页 第<%=page%>页 <a href="F_CpInfo2.asp?page=1&spxh=<%=spxh%>&spmc=<%=spmc%>&ID=<%=ID%>">首页</a> <%if page>1 then %>
<a href="F_CpInfo2.asp?page=<%=(page-1)%>&spxh=<%=spxh%>&spmc=<%=spmc%>&ID=<%=ID%>">上页</a>
<% else%>
上页
<% end if%>
<%if page<RScp.pagecount then %>
<a href="F_CpInfo2.asp?page=<%=(page+1)%>&spxh=<%=spxh%>&spmc=<%=spmc%>&ID=<%=ID%>">下页</a>
<% else %>
下页
<%end if%><a href="F_CpInfo2.asp?page=<%=RScp.pagecount%>&spxh=<%=spxh%>&spmc=<%=spmc%>&ID=<%=ID%>">尾页</a> </font>
<%%>
<select name="page1" style="width:80" size="1">
<% for o=1 to RScp.pagecount%>
<option value="<%=o%>">第<%=o%>页</option>
<%next%>
</select> <input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<p>
<p align="left"><input type="button" value="确定" name="bb" onclick="winsub()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
</form>
<%
Rscp.close
set Rscp=nothing
end if %>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -