step2update.asp

来自「这是一个用SQL Server和ASP开发的搜索引擎网站」· ASP 代码 · 共 48 行

<%
webid= Request("urlid")
cat =  Request("CatID")
Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  
set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
 conn.Execute("UPDATE link2  set ParentID='" & cat & "' where ID =" & webid)
	sql = "select * from subcat where catid='" & cat & "'"
	set rs = conn.Execute (sql)
%>
移动到新类别!
<br>
<br>
第三步 >> 请选择子类别! (必做)
<br>
<table border="0" width="300">
	<% 
	Do while NOT rs.EOF 
	ColNum = 1 
	 Do while ColNum < 3
	%>		
<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="step3update.asp?CatID=<%=rs("subcatid")%>&urlid=<%=webid%>"><%=rs("subcatname")%></a></TD>
<% 
if NOT rs.EOF then 
 rs.MoveNext 
end if 
 ColNum = ColNum + 1 
if NOT rs.EOF then 
%>
<TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="step3update.asp?CatID=<%=rs("subcatid")%>&urlid=<%=webid%>"><%=rs("subcatname")%></a></TD>
<% 
end if
ColNum = ColNum + 1 
Loop 
%>
</TR>
<% 
if NOT rs.EOF then  
rs.MoveNext  
end if 
 Loop 
 %>
	</TABLE>	
	<% rs.close
	Conn.Close
	set Conn = nothing
	%>