<!-- #Include File=../ad_check.asp -->
<!-- #Include File=../sys.asp -->
<!-- #Include File=../sys/inc/prompt.inc -->
<%
'==========================================
'程序制做:迅捷網(wǎng)絡(luò).    http://www.soonhost.com
'迅捷主機(jī)網(wǎng) -- 域名注冊(cè)、主機(jī)租用、網(wǎng)站建設(shè)、腳本開發(fā)
'網(wǎng)址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'請(qǐng)保留以上版權(quán)信息，謝謝合作！
'==========================================

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 %>