📄 modifystatus.asp

📁 online sales system of texttile mill was a project within which there was great opportunity for Lear

💻 ASP

字号:

<!-- #include file="conn.asp" -->
<html>
<head>
	<title>Untitled</title>
</head>

<body bgcolor="">

<center><FONT face=Georgia color=#cc0033 size=2><b>Welcome Administrator</font></center><br>
<%
if session("admin") = "" then
'administrator not logged in
response.redirect "administrator.asp"
end if
%>


<%dim id
id = request.queryString ( "id" )

Set oRs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from ACtivities"
Set oRs = objcon.execute(SQL)
response.write "<form name=priceform method=post action=statuschanged.asp?id=" & id  & ">"
response.write("<br>")
response.write("<br>")
response.write("<br>")
response.write("<br>")
response.write("<center>")
response.write("<FONT face=tahoma size=2 color=red>Select New Status</font><select name=t1>")
while not oRs.EOF
		response.write "<FONT face=tahoma size=2><option value='" & oRs.Fields("act_desc") & "'></Font>" & oRs.Fields("act_Desc")
oRs.MoveNext
Wend
response.write("</center>")
oRs.close
response.write("</select>")
response.write "<br><br><center><input type=reset><input type=submit></center>" &_
				"</form>"
%>

</B><br><center><Font face=Tahoma size=1><a href=admin_options.asp>Go to options page</a></center></Font>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -