ad_changetype.asp

迅捷网上调查系统管理

<!-- #Include File=../ad_check.asp -->
<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
'==========================================
'程序制做:迅捷网络.    http://www.soonhost.com
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:[e-mail]
'请保留以上版权信息，谢谢合作！
'==========================================

dim id,subtype,successmess
if request("subtype") <> "" then
id=trim(request("id"))
subtype=trim(request("subtype"))
call conned()
sql="update vote set bselect='"&subtype&"' where id="&id
conn.execute(sql)
conn.close
set conn=nothing
successmess="成功！"
backurl="ad_view.asp"

call success

else
state="更改类型名称"
call top()
%>
<br><br><br><br>
<form method="post" action="ad_changetype.asp">
  <table border=1 cellpadding=0 cellspacing=0 width=500 align="center" bordercolor="#0099cc">
    <tr align="center" valign="middle"> 
      <td class=td2  height=15 width=154>更改类型名</td>
      <td class=td2  height=15 width=340> 
        <input type="text" name="subtype" maxlength="20" size="20">
        <input type="submit" name="Submit" value="确定">
        <input type="hidden" name="id" value="<%=request("id")%>">
      </td>
    </tr>
    
  </table>
  </form>
  </html>
  
<% end if %>