<!--#include file="mdb.asp"-->
<%
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else
if request.form("name")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('連接名稱不能為空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("url")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('連接描述不能為空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if
if request.form("id")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('ID不能為空!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
end if

name=request.form("name")
url=request.form("url")
id=request.form("id")

set rs=server.createobject("adodb.recordset")
sql="select * from link where id="&id
rs.open sql,conn,1,3
rs("name")=name
rs("url")=url
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("antry")="" '提交成功，清空session("antry")，以防重復提交！！
%><%end if%><!--#include file="Inc/MsgBox.asp"--><%
Call MsgBox("發布成功","GoUrl","shoplink.asp")
    response.End()
%>