%
if session("aloform")=false then response.redirect "adlogin.asp" end if
dim rs,sql,i,totalput
call conned()
state="迅捷客户留言提交系统 http://www.soonhost.com"
navstate=navstate&" ->留言内容设定"
call top()
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from formvalue"
rs.open sql, conn,1,1
totalput=rs.recordcount
if not rs.eof then rs.movefirst
'----------------------------------空记录
%>
|
客户留言内容设定 |
|
序号 |
留言名称 |
调查属性 |
文本框宽度 |
文本区域行数 |
删除这个内容 |
<%
i=1
do while not rs.eof
Response.Write ""
response.write ""&rs("id")&" | "
response.write "" &rs("formtext")& " | "
response.write ""
if rs("subform") =1 then
Response.Write "文本框"
else
Response.Write "文本区域"
end if
Response.Write " | "
response.write ""&rs("formwidth")&" | "
response.write ""&rs("formheigh")&" | "
response.write ""
if i>2 then
Response.Write "删除!"
else
Response.Write "默认项"
end if
Response.Write " | "
Response.Write " "
rs.movenext
i=i+1
loop
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
'==========================================
'程序制做:迅捷网络. http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址:http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息,谢谢合作!
'==========================================
%>
|
程序维护:迅捷主机网 业务范围:1.域名注册,只要75元,同时申请主机有比较低价格.2.虚拟主机: 免费试用,在线开通3.网站推广:经济高效 |
<%
foot()
%>