<%@ Language=VBScript %>
<% Option Explicit %>
留言討論區
<%
Dim nid,id,name,city,career,company,email,subject,msg,time,ip
Dim rsUpdate, actionname
' Get Value
If Request("act") = "edit" Then
actionname="儲存"
id = CInt(Request("id"))
Set rsUpdate = Server.CreateObject("ADODB.Recordset")
sqlstr = "Select * From BulletinBoard Where id=" & id
rsUpdate.open sqlstr, conn, 3, 1
act = "edit"
name = rsUpdate("name")
city = rsUpdate("city")
career = rsUpdate("career")
company = rsUpdate("company")
email = rsUpdate("email")
subject = rsUpdate("subject")
msg = rsUpdate("msg")
Else
act = "add"
actionname="預覽"
nid=Request("nid")
If IsEmpty(nid) Then
nid=0
Else
Set rsUpdate = Server.CreateObject("ADODB.Recordset")
sqlstr = "Select subject From BulletinBoard Where id=" & nid
rsUpdate.open sqlstr, conn, 3, 1
subject = "Re:"& rsUpdate("subject")
End If
End If
%>
