lhb_search.asp

来自「思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一」· ASP 代码 · 共 42 行

<%
Sub Buy()
response.write "<table width='768' border='0' cellspacing='0' cellpadding='0' align='center'>"
response.write "<form name='form1' method='post' action='LHB_Buy.asp'>"
response.write "<tr>"
response.write "<td width='413' height='30' align='right'>"
response.write "<input type='text' name='LouHB_Key' size='30' Class='button1'>"
response.write "</td>"
response.write "<td width='10'>&nbsp;</td>"
response.write "<td width='345'>"
response.write "<input name='LouHB_Type' type='hidden' value='L_BiaoTi'>"
response.write "<input type='image' name='button' value='搜索' src='pic/Search.gif'>"
response.write "</td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
End Sub

Sub index()
response.write "<table width='768' border='0' cellspacing='0' cellpadding='0' align='center'>"
response.write "<form name='form1' method='post' action='index.asp'>"
response.write "<tr>"
response.write "<td width='350' height='30' align='right'>"
response.write "<input type='text' name='LouHB_Key' size='30' Class='button1' value='"&L_Key&"'>"
response.write "</td>"
response.write "<td width='118' align='Center'>"
response.write "<select name='LouHB_Type' type='text' size='1' class='button1'>"
response.write "<option value='L_BiaoTi'>按标题搜索</option>"
response.write "<option value='L_BeiZhu1'>按备注１搜索</option>"
response.write "<option value='L_BeiZhu2'>按备注２搜索</option>"
response.write "<option value='L_BeiZhu3'>按备注３搜索</option>"
response.write "<option value='L_JiaGe'>按价格搜索</option>"
response.write "</select>"
response.write "</td>"
response.write "<td width='300'>"
response.write "<input type='image' name='button' value='搜索' src='pic/Search.gif'>"
response.write "</td>"
response.write "</tr>"
response.write "</form>"
response.write "</table>"
End Sub
%>