srch.asp

来自「asp的新闻网站」· ASP 代码 · 共 157 行

ASP
157 行
字号 
<%Response.Buffer=true%>
<%
'修改：
'时间：
	
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<%
imageUp=0
set rs=server.CreateObject("adodb.recordset")
if request("submit")<>"" then
	if trim(request("photoid"))="" then
		response.write "请选择一个明星组!<a href=javascript:history.back()>按此返回</a>"
		response.end
	end if	
	sql="select * from news2_starcommend where commendid='"&request("commendid")&"'"
	rs.open sql,conn,3,3
  if not rs.EOF then
	set rsl=server.CreateObject("adodb.recordset")
	
	   sqll="select * from news2_photo where photoId='"&request("photoid")&"' "
		rsl.open sqll,conn,3,1
	    if not rsl.eof then
	    phototitle=rsl("phototitle")
		else
		response.write "数据保存出错！原因：请重新选择名星组!<a href=javascript:history.back()>按此返回</a>"
		response.end
		end if
		rsl.close
		
		rs("photoId")=request("photoid")
		
	    rs("phototitle")=trim(phototitle)
	   
	if request("picMenuId")="" and request("picMenuId2")="" then
		response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
		response.end
	end if
	if request("picMenuId")="" then
	rs("picMenuId")=killStr(request("picMenuId2"))
	end if
	rs("visible")="1"
	
'如果出错，请检查下面的语句。
	
	rs.update
		
end if
	rs.close%><body bgcolor="#FFFFE0">
<script language=javascript>
alert("推荐成功！");
//location.href =history.back();
</script>
<%Response.End 
end if

%>

<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check(form1){

	}
</script>

</head>
<body bgcolor="#FFFFE0">
<%

set rsSelect=server.CreateObject("adodb.recordset")
sqlSelect ="select picMenuId,picMenuName from news2_picMenu where picmenuid='"&request("picmenuid")&"' and right(picmenuid,3)='000' "
rsSelect.open sqlSelect,conn,3,1
			
%>
<form method=POST action=<% =request.servervariables("path_info")%>?commendid=<%=request("commendid")%> name=add onsubmit="return check(this);">
	<p align=center><b><font size=4 color=#0000FF><u>图片信息数据推荐</u></font></b></p>
	<div align=center><center>
	<table style="border: 1 solid #0000FF" width=85%>
		<%if not rsselect.EOF then%><tr>
			<td style="border: 1 solid #0000FF" align=right>所属一级图片栏目:</td>
			<td style="border: 1 solid #0000FF"><%=rsselect("picmenuname")%><input type=hidden value=<%=rsSelect("picMenuId")%> name=picmenuid></td>
		</tr><%end if
		rsselect.Close
		sqlSelect ="select picMenuId,picMenuName from news2_picMenu where left(picmenuid,3)='"&left(request("picmenuid"),3)&"' and right(picmenuid,3)<>'000'"
		rsSelect.open sqlSelect,conn,3,1
		if not rsselect.EOF then
		%>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>所属二级图片栏目:</td>
			<td style="border: 1 solid #0000FF">
			<input type=hidden value=<%=rsSelect("picMenuId")%> name=picmenuid2><%=rsSelect("picMenuName")%>
			</td>
		</tr><%
		end if
		rsSelect.close
		%>
		<!--<tr>
			<td style="border: 1 solid #0000FF" align=right>明星图片组:</td>
			<td style="border: 1 solid #0000FF"><select size=1 name=photoid>
				<%sqlSelect ="select photoId,phototitle from news2_photo where right(photoid,4)='0000' and picmenuid='"&request("picmenuid")&"'"
		         rsSelect.open sqlSelect,conn,3,1
					while not rsSelect.eof%>
					<option value=<%=rsSelect("photoid")%>><%=rsSelect("phototitle")%>
					<%rsSelect.movenext
					wend
					rsselect.Close %>
					
				</select>
			</td>
		</tr>-->
		</table>
		<table style="border: 1 solid #0000FF" width=85%>
		
		<tr><td style="border: 1 solid #0000FF" align=center>选择</td>
		    <td style="border: 1 solid #0000FF">明星组名称</td>
		</tr>
		<%
		sqlSelect ="select photoId,phototitle from news2_photo where right(photoid,4)='0000' and picmenuid='"&request("picmenuid")&"'"
		      %><!--#include file="../include/rollpage.asp"--><%  
		       rsSelect.open sqlSelect,conn,3,1
		
		If Not rsselect.EOF Then
			rsselect.PageSize =20
			rsselect.AbsolutePage = getPageNo(rsselect)
			for i=1 to rsselect.PageSize
			if rsselect.EOF then exit for%>
			<tr><td style="border: 1 solid #0000FF" align=center><input type=radio name=photoid value="<%=rsselect("photoid")%>"></td>
		    <td style="border: 1 solid #0000FF"><%=rsselect("phototitle")%></td>
			</tr>
		<%
		
		rsSelect.movenext
		if rsselect.EOF then exit for
			next
					%>
		<tr>
			<td style="border: 1 solid #0000FF" colspan=2 align=center><input type=submit value='　推荐　' name=submit>　</td>
		</tr>
	</table></form><form action=srch.asp>
	<input type=hidden value=<%=request("picMenuId")%> name=picmenuid>
	<%call listPage(rsselect)%>
	<%end if
	rsselect.Close %></center></div>
</form>
</body>
</html>

srch.asp - 源码说明

本页面展示了「asp的新闻网站」中的 srch.asp 源码文件，采用 ASP 编程语言编写，共 157 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?