<% 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 "" response.write "" response.write "" response.write "" response.write "" 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 '请保留以上版权信息,谢谢合作! '========================================== %>
序号 留言名称 调查属性 文本框宽度 文本区域行数 删除这个内容
"&rs("id")&"" &rs("formtext")& "" if rs("subform") =1 then Response.Write "文本框" else Response.Write "文本区域" end if Response.Write ""&rs("formwidth")&""&rs("formheigh")&"" if i>2 then Response.Write "删除!" else Response.Write "默认项" end if Response.Write "
程序维护:迅捷主机网 业务范围:1.域名注册,只要75元,同时申请主机有比较低价格.2.虚拟主机: 免费试用,在线开通3.网站推广:经济高效

1.点击留言名称比较改留言。



添加留言内容 说明:  内容宽度:<%call selwidth("formwidth")%>     
<% foot() %>