Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Внизin Visual Basic Найти похожие ветки
← →
Vladimir ;) (2002-03-26 14:56) [2]Дело такое:
<!--#include file="dbopen.asp"-->
<%
Dim user, email, subject, content, sSQL, pid
Dim tp
tp = Request.QueryString("type")
if tp = "newmsg" then
Call NewMsg()
else
if tp = "newreply" then
Call NewReply()
end if
end if
cn.Close
Set cn = Nothing
Sub NewMsg()
user = Request.Form("user")
email = Request.Form("email")
subject = Left(Request.Form("subject"),40)
content = Request.Form("content")
if (user="" Or email = "" Or subject = "" Or content = "") then
Response.Write "Одно из полей пустое !"
Response.End
end if
Response.Cookies("forum")("user") = Replace(Replace(Replace(Replace(user,"&","&"),"<","<"),">",">"),CHR(34),""")
Response.Cookies("forum")("email") = Replace(Replace(Replace(Replace(email,"&","&"),"<","<"),">",">"),CHR(34),""")
Response.Cookies("forum").Expires=dateadd("yyyy",1,Date)
user = Replace(Replace(Replace(Replace(Replace(user,"&","&"),"<","<"),">",">"),""",""""),CHR(34),""")
email = Replace(Replace(Replace(Replace(Replace(email,"&","&"),"<","<"),">",">"),""",""""),CHR(34),""")
content = Replace(Replace(Replace(Replace(Replace(Replace(content,"&","&"),"<","<"),">",">"),""",""""),CHR(13) & CHR(10),"<br>",1),CHR(34),""")
subject = Replace(Replace(Replace(Replace(Replace(subject,"&","&"),"<","<"),">",">"),""",""""),CHR(34),""")
If Len(content) > 4096 Then content = Left(content, 4096)
If type_db = "Access" Then
sSQL = "INSERT INTO messages (nuser, email, subject, content, msgdate) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & "","" & Now() & "")"
End If
If type_db = "SQLServer" Then
sSQL = "INSERT INTO messages (nuser, email, subject, content) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & "")"
End If
cn.Execute(sSQL)
%>
<p><center>
<h3><font color="#ff4500">Сообщение успешно добавлено !</h3>
<a href="default.asp" title="[К сообщениям]"
style="color: #556b2f; text-decoration: none; background: #fffafa">
К сообщениям
</a>
</center>
<%
End Sub
Sub NewReply()
pid = Request.QueryString("pid")
user = Request.Form("user")
email = Request.Form("email")
subject = Left(Request.Form("subject"),40)
content = Request.Form("content")
if (user="" Or email = "" Or subject = "" Or content = "" Or pid = "") then
Response.Write "Одно из полей пустое !"
Response.End
end if
Response.Cookies("forum")("user") = Replace(Replace(Replace(Replace(user,"&","&"),"<","<"),">",">"),CHR(34),""")
Response.Cookies("forum")("email") = Replace(Replace(Replace(Replace(email,"&","&"),"<","<"),">",">"),CHR(34),""")
Response.Cookies("forum").Expires=dateadd("yyyy",1,Date)
user = Replace(Replace(Replace(Replace(Replace(user,"&","&"),"<","<"),">",">"),""",""""),CHR(34),""")
email = Replace(Replace(Replace(Replace(Replace(email,"&","&"),"<","<"),">",">"),""",""""),CHR(34),""")
content = Replace(Replace(Replace(Replace(Replace(Replace(content,"&","&"),"<","<"),">",">"),""",""""),CHR(13) & CHR(10),"<br>",1),CHR(34),""")
subject = Replace(Replace(Replace(Replace(Replace(subject,"&","&"),"<","<"),">",">"),""",""""),CHR(34),""")
If Len(content) > 4096 Then content = Left(content, 4096)
If type_db = "Access" Then
sSQL = "INSERT INTO replies (nuser, email, subject, content, msgdate, parent_id) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & "","" & Now() & ""," & _
pid & ")"
End If
If type_db = "SQLServer" Then
sSQL = "INSERT INTO replies (nuser, email, subject, content, parent_id) VALUES ("" & _
user & "","" & email & "","" & subject & "","" & _
content & ""," & _
pid & ")"
End If
cn.Execute(sSQL)
%>
<p>
<center>
<h3><font color="#ff4500">Ответ успешно добавлен !</h3>
<a href="viewmsg.asp?pid=<%=pid%>" title="[Назад]"
style="color: #556b2f; text-decoration: none; background: #fffafa">
Назад
</a>
</center>
<%
End Sub
%>
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c