pro_listsrch.asp

网站源码

<%@ codepage = 936 LCID = 2052 %>
<% if Session("exemple_status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
response.buffer = true

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
%>

<!--#include file="header.asp"-->

<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699"><tr><td>
<img src="images/bnrsrch.gif" alt="" width="400" height="30" border="0"></td></tr></table>

<table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td>
<p>Search TABLE : 产品库管理</a></p>

<script language="JavaScript" src="ew.js"></script>
<script language="JavaScript">
<!-- start Javascript
function  EW_checkMyForm(EW_this) {
if  (!EW_checkinteger(EW_this.x_id.value)) {
        if  (!EW_onError(EW_this, EW_this.x_id, "TEXT", "Incorrect integer - id"))
            return false; 
        }
if  (!EW_checkinteger(EW_this.x_pro_type.value)) {
        if  (!EW_onError(EW_this, EW_this.x_pro_type, "TEXT", "请选择产品类别!!!"))
            return false; 
        }
return true;
}
// end JavaScript -->
</script>
<form onSubmit="return EW_checkMyForm(this);"  action="pro_listlist.asp" method="get">
<p>

<table width="500" border="0" cellspacing="1" cellpadding="5" bgcolor="cccccc">
<tr>
<td bgcolor="f5f5f5"><font color="">id&nbsp;</td>
<td bgcolor="#F5F5F5">=
<input type="hidden" name="z_id" value="=,,">&nbsp;</td>
<td bgcolor="#F5F5F5"><input type="text" name="x_id" value="<%= x_id %>">&nbsp;</td>
</tr>
<tr>
<td bgcolor="f5f5f5"><font color="">产品名称&nbsp;</td>
<td bgcolor="#F5F5F5">LIKE
<input type="hidden" name="z_pro_name" value="LIKE,'%,%'">&nbsp;</td>
<td bgcolor="#F5F5F5"><input type="text" name="x_pro_name" value="<%= x_pro_name %>" size=30 maxlength=50>&nbsp;</td>
</tr>
<tr>
<td bgcolor="f5f5f5"><font color="">产品类别&nbsp;</td>
<td bgcolor="#F5F5F5">=
<input type="hidden" name="z_pro_type" value="=,,">&nbsp;</td>
<td bgcolor="#F5F5F5"><%
x_pro_typeList = "<SELECT name='x_pro_type'><OPTION value=''>Please Select</OPTION>"
sqlwrk = "SELECT [id], [type_name] FROM [pro_type] ORDER BY [id] DESC"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.EOF Then
    datawrk = rswrk.GetRows
    rowswrk = UBound(datawrk, 2)
    For rowcntwrk = 0 To rowswrk
        x_pro_typeList = x_pro_typeList & "<OPTION value='" & datawrk(0, rowcntwrk) & "'"
        If datawrk(0, rowcntwrk) = x_pro_type Then
            x_pro_typeList = x_pro_typeList & " selected"
        End If
        x_pro_typeList = x_pro_typeList & ">" & datawrk(1, rowcntwrk) & "</option>"
    Next
End If
rswrk.Close
Set rswrk = Nothing
x_pro_typeList = x_pro_typeList & "</SELECT>"
response.write x_pro_typeList
%>
&nbsp;</td>
</tr>
<tr>
<td bgcolor="f5f5f5"><font color="">产品说明&nbsp;</td>
<td bgcolor="#F5F5F5">LIKE
<input type="hidden" name="z_pro_info" value="LIKE,'%,%'">&nbsp;</td>
<td bgcolor="#F5F5F5"><textarea cols=35 rows=4 name="x_pro_info"><%= x_pro_info %></textarea>&nbsp;</td>
</tr>
<tr>
<td bgcolor="f5f5f5"><font color="">产品图片&nbsp;</td>
<td bgcolor="#F5F5F5">LIKE
<input type="hidden" name="z_pro_img" value="LIKE,'%,%'">&nbsp;</td>
<td bgcolor="#F5F5F5"><input type="text" name="x_pro_img" value="<%= x_pro_img %>">&nbsp;</td>
</tr>
</table>
<p>
<input type="submit" name="Action" value="Search">
</form>
</td></tr></table>
<!--#include file="footer.asp"-->