site.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<!--#include file="../Include/Config.asp"-->
<link rel="stylesheet" href="../Css/Admin.css" type="text/css" />
<%
dim n,m 
n=1'SysSet_flag有几项设置内容
m=2'0为选项标题，1为数据库内容
redim siteItem(n,m) 
siteItem(0,0)="站点状态" 
sql="select * from [SysSet] where SysSet_use=true"
rs.open sql,conn,1,1
if not rs.eof then
SysSet_flag=rs("SysSet_flag")
SysSet_close=rs("SysSet_close")
SysSet_keyword=rs("SysSet_keyword")
SysSet_descrip=rs("SysSet_descrip")
SysSet_siteName=rs("SysSet_siteName")
SysSet_siteURL=rs("SysSet_siteURL")
else
call ShowAlert("系统出错","")
end if
rs.close

SysSet_flag=split(SysSet_flag,",")
for i=0 to ubound(SysSet_flag)
siteItem(i,1)=SysSet_flag(i)
next

if request.form.count>0 then 
Siteopen=request.Form("Siteopen")
SysSet_close=request.Form("SysSet_close")
SysSet_keyword=trim(request.Form("SysSet_keyword"))
SysSet_descrip=trim(request.Form("SysSet_descrip"))
SysSet_siteName=trim(request.Form("SysSet_siteName"))
SysSet_siteURL=trim(request.Form("SysSet_siteURL"))

sql="select * from [SysSet] where SysSet_use=true"
rs.open sql,conn,1,3
if not rs.eof then
rs("SysSet_flag")=Siteopen
rs("SysSet_date")=now()
rs("SysSet_close")=SysSet_close
rs("SysSet_keyword")=SysSet_keyword
rs("SysSet_descrip")=SysSet_descrip
rs("SysSet_siteName")=SysSet_siteName
rs("SysSet_siteURL")=SysSet_siteURL
rs.update
Application.Contents.RemoveAll()'删除所有全局变量，放止更改网站状态
call ShowAlert("更新成功","Site.asp")
else
call ShowAlert("参数错误","Site.asp")
end if
rs.close
end if
%>   
<form name="form1" action="" method="post">
   <table cellspacing=0 cellpadding=0 width=740 border=0 class="table">
     <tbody>
       <tr>
         <th colspan="4" align="center">网站信息配置</th>
       </tr>
       <tr>
         <td width="104">&nbsp;</td>
         <td width="127">&nbsp;</td>
         <td width="268">&nbsp;</td>
         <td width="476">&nbsp;</td>
       </tr>
       <tr>
         <td width="104">&nbsp;</td>
         <td width="127"><%=siteItem(0,0)%></td>
         <td><%=switchRadio(siteItem(0,1),"Siteopen","2")%></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td height="71">网站名称：</td>
         <td height="71"><input name="SysSet_siteName" type="text" value="<%=SysSet_siteName%>" size="40"></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td height="71">网站URL：</td>
         <td height="71"><input name="SysSet_siteURL" type="text" value="<%=SysSet_siteURL%>" size="40"></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td width="104">&nbsp;</td>
         <td width="127" height="71">网站关闭提示：</td>
         <td height="71"><textarea name="SysSet_close" cols="50" rows="4"><%=SysSet_close%></textarea></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td width="104">&nbsp;</td>
         <td width="127">&nbsp;</td>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td>网站关键字：</td>
         <td><textarea name="SysSet_keyword" cols="50" rows="4" id="SysSet_keyword"><%=SysSet_keyword%></textarea></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td>网站描述：</td>
         <td><textarea name="SysSet_descrip" cols="50" rows="4" id="SysSet_descrip"><%=SysSet_descrip%></textarea></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td>&nbsp;</td>
         <td><div id="button">
           <input name="submit" type="submit" class="button" value="保存" />
           <input name="reset" type="reset" value="取消" />
         </div></td>
         <td>&nbsp;</td>
       </tr>
       <tr>
         <td>&nbsp;</td>
         <td colspan="2">&nbsp;</td>
         <td>&nbsp;</td>
       </tr>
     </tbody>
   </table>
</form>