class_comment.asp

直接附加数据库！ 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序

<!--#include file="Class_Conn.asp" -->
<!--#include file="Class_Main.asp" -->
<% 

Dim Title,Content,Filename
Dim UserType,Username

If IsArray(Session("Person")) Then
 UserType = "Per"
 Username = Session("Person")(0)
Elseif IsArray(Session("Company")) Then
 UserType = "Com"
 Username = Session("Company")(0)
Elseif IsArray(Session("School")) Then
 UserType = "Sch"
 Username = Session("School")(0)
Elseif IsArray(Session("Educate")) Then
 UserType = "Edu"
 Username = Session("Educate")(0)
Else 
 UserType = ""
 Username = ""
End if

Title = Replace_Text(Request.Form("Title"))
Content = Replace_Text(Request.Form("Content"))
Filename = Replace_Text(Request.Form("Filename"))

SQL = "Insert Into [pH_New_Comment] (Filename,UserType,Username,Title,Content,AddDate,Flag) Values ('"&Filename&"','"&UserType&"','"&Username&"','"&Title&"','"&Content&"',GetDate(),0)"
Conn.Execute(SQL)

Response.write "<script>alert('您的评论已经发表成功！');history.back(-1);</script>"

 %>