editoption.asp
来自「top-cms内容管理系统」· ASP 代码 · 共 124 行
ASP
124 行
<%
'###########################################################################################
'* 程序名称: Top-CMS
'*---------------------------------------------------------------------------------------
'* 系统版本: 1.0 0215
'* 版权所有: www.Net-Develop.com
'* 程序设计: 江南行客
'* 联系方式:
'* OICQ：2503086
'* EMAIL：net-oa@sohu.com
'* 网站地址:
'* http://www.net-develop.com
'* http://www.top-cms.com
'*---------------------------------------------------------------------------------------
'* Copyright 2004 www.net-develop.com - All Rights Reserved.
'###########################################################################################
%>
<!--#include file="../common/common.asp" -->
<html>
<head>
<title>:::WWW.NET-DEVELOP.COM:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/style.css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set objCMS = Server.CreateObject("TopCMS.EditOption")
if objCMS.ChkAdminPower then
aID=objCMS.ChkString(Request("aID"),"U")
nT=objCMS.ChkString(Request("nT"),"U")
SystemI_Init
objCMS.OpenDB()
If Not objCMS.CheckAdminField("Poll") Then
objCMS.OutInfo "对不起，你不具备管理调查项目的权限。", ""
Response.End
End If
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
objCMS.SaveOption aID,nT
else
if UCase(nT)="EDIT" and aID<>"" then
dbSql="SELECT aAnswer FROM db_Answer WHERE aID = " & CInt(aID)
set Qrs=objCMS.MyRs(dbSql,1,1,1)
If Qrs.EOF Then
objCMS.OutInfo "操作出错",""
response.end
else
%>
<form name="form1" method="post" action="editoption.asp">
<table width="100%" border="1" bordercolor="#999999" cellspacing="0" cellpadding="2" align="center">
<tr>
<td colspan="2" background="../Images/default_nav.gif"><font color="#FFFFFF">修改投票项目</font> </td>
</tr>
<tr bgcolor="#EEEEEE"><td width="100" align="right">选项内容:</td><td>
<input name="content" type="text" size="20" maxlength="50" value="<%= objCMS.ChkString(Qrs("aAnswer"),"E") %>">
</td></tr>
<tr bgcolor="#CCCCCC"><td align="center" colspan="2">
<input type="hidden" name="aID" value="<%= aID %>">
<input type="hidden" name="nT" value="EDIT">
<input type="submit" name="Submit" value="更 新">
<input type="button" name="S2" value=" 返回 " onclick="history.back();">
</td></tr></table></form>
<%
end if
Qrs.Close
Set Qrs = Nothing
else
dbSql="SELECT p.qTitle, a.aAnswer FROM db_Question p, db_Answer a WHERE p.qID = a.qID AND p.qID = " & CInt(aID)
set Qrs=objCMS.MyRs(dbSql,1,1,1)
If Qrs.EOF Then
objCMS.OutInfo "操作出错",""
response.end
else
%>
<form name="form1" method="post" action="editoption.asp">
<table width="100%" border="1" bordercolor="#999999" cellspacing="0" cellpadding="2" align="center">
<tr><td colspan="2" background="../Images/default_nav.gif"><font color="#FFFFFF">添加投票项目</font>
</td></tr>
<tr bgcolor="#EEEEEE"><td width="100" align="right">投票主题:</td><td>
<%=Trim(Qrs("qTitle"))%>
</td></tr>
<%
i = 0
Do while not Qrs.EOF
i = i + 1
%>
<tr><td width="100" align="right">选项<%= i %>:</td><td>
<%=Qrs("aAnswer")%>
</td></tr>
<%
Qrs.MoveNext
Loop
%>
<tr bgcolor="#EEEEEE"><td width="100" align="right">调查选项<%= i+1 %>:</td><td>
<input name="content" type="text" size="20" maxlength="50">
</td></tr>
<tr bgcolor="#CCCCCC"><td align="center" colspan="2">
<input type="hidden" name="aID" value="<%= aID %>">
<input type="hidden" name="nT" value="ADD">
<input type="submit" name="Submit" value="添 加">
<input type="button" name="S2" value=" 返回 " onclick="history.back();">
</td></tr></table></form>
<%
end if
Qrs.Close
Set Qrs = Nothing
end if
end if
objCMS.CloseDB
else
objCMS.OutInfo "对不起，您还没有登录，请先登录","Login"
end if
set objCMS=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?