📄 newarticle.asp
字号:
<%@ language="vbscript" %>
<% Response.Expires=0%>
<%'发表新贴子
if request("username")="" or request("title")="" or request("content")="" then
response.write "用户名、主题和内容必须填写！"
response.end
end if
Response.Cookies("zhao1zhao")("username1")=request("username")
Response.Cookies("zhao1zhao").Expires="January 1, 2002"
dim xl_l ,title,boardid,textsize,username,feeling,whattime,content,httptitle,httpadd,imgadd
'for each formelement in request.form
' response.write formelement&"="&request.form(formelement)&"<br>"
'next
'response.write request.form("boardid2")&"LLLLLLLLLLLLLLLLL"
'response.write request("boardid")&"mjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj"
if isempty(request("boardid")) then
response.write "非法操作！"
response.end
else
boardid=request("boardid")
end if
if trim(request("httpadd"))<>"http://" and trim(request("httpadd"))<>"" then
httpadd=request("httpadd")
end if
if trim(request("imgadd"))<>"http://" and trim(request("imgadd"))<>"" then
imgadd=request("imgadd")
end if
httptitle=request("httptitle")
session("username")=request("username")
username=request("username")
whattime=now
feeling=request("feeling")
ipadd=request.servervariables("remote_addr")
title=Server.htmlencode(replace(request("title"),"'","''"))
textsize=len(trim(request("content")))
content=Server.htmlencode(replace(request("content"),"'","''"))
' DbPath = SERVER.MapPath("db1.mdb")
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
sql="update user_info set articlenum=articlenum+1,lives=lives+1 where username='"&username&"'"
conn.execute sql
set rs=server.createobject("ADODB.RecordSet")
sql1="select min(bianma) as xxl from mainboard"
rs.open sql1,conn,1,1
rs.movefirst
if isnull(rs("xxl")) or isempty(rs("xxl")) then
xl_l="99999"
else
xl_l=cstr(rs("xxl")-1)
end if
rs.close
set rs=nothing
'sqlmjj="select * from mainboard"
'set rs=conn.execute(sqlmjj)
'for i=0 to rs.fields.count-1
' response.write rs.fields(i).name&"----->"&rs.fields(i).value&"<br>"
'next
'response.end
sqltext="insert into mainboard(guestname,title,content,feeling,whattime,boardid,[textsize],httptitle,httpadd,imgadd,ipadd,bianma) values('"&username&"','"&title&"','"&content&"','"&feeling&"',Now(),"&boardid&","&textsize&",'"&httptitle&"','"&httpadd&"','"&imgadd&"','"&ipadd&"','"&xl_l&"')"
'response.write sqltext
conn.execute sqltext
conn.close
set conn=nothing
response.redirect ("list.asp?boardid="&boardid)
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -