movetheme.asp

来自「在线考试系统」· ASP 代码 · 共 71 行

ASP

71 行

<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="conn_forum.asp" -->

<%
dim iArea
dim iId

iArea=Clng(Request("areaid"))
iId=Clng(Request("tid"))

%>

<HTML>
<HEAD>
<title>移动主题</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../main.css">
</HEAD>
<body bgcolor="#ffffff">
	
	
	<p>请选择移至哪个讨论区：</p>
	
	<form name="form1" method="get" action="modifytheme.asp"
	
	<p>原讨论区 ID：<%=iArea%></p>
	<p>主题 ID：<%=iId%></p>
	
	<input type="hidden" name="areaid" value="<%=iArea%>">
	<input type="hidden" name="tid" value="<%=iId%>">
	<input type="hidden" name="action" value="move">
	<select size="1" name="newarea">
	<%
	dim rs
	set rs=Server.CreateObject ("ADODB.Recordset")
	rs.Open  "SELECT areaID,areaName FROM tindex ORDER BY AreaID",connf,1 ,1

	dim i
	i=0
	
	if not(rs.EOF and rs.BOF) then

		rs.MoveFirst
		do while not rs.EOF
			i=clng(rs("areaid"))
			if i=iArea then
				Response.Write "<option selected value=" & rs("areaid") & ">" & rs("areaname") & "(原来位置)" & "</option>" & vbcrlf
			else
				Response.Write "<option value=" & rs("areaid") & ">" & rs("areaname") & "</option>" & vbcrlf
			end if
			rs.MoveNext
		loop

	end if
	%>
	</select>
	<p> 
	<input type="submit" value="提交">
	</p>
	</form> 
	
	<%
	rs.close
	set rs=nothing
	call closeconnf
	%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

movetheme.asp

movetheme.asp - 源码说明

⌨️ 快捷键说明