中华考试网·阅读新闻
编程开发 > ASP > 文章内容

ASP编程教程技巧综合大全(47)

2015-9-30编辑:ljnbset





asp常常用到的一些东西,
<%=Request.ServerVariables("remote_addr")%>

FOR each item in Request.form
tempvalue=trim(Request(item))
tempvalue=Replace(tempvalue,chr(13)&chr(10),"
")
tempvalue=Replace(tempvalue,"

","
")
if tempvalue="" then tempvalue=0
Execute item&"="""&tempvalue&""""
''response.write item&"="&tempvalue&"
"
next
''response.write request("id")
''response.end

if ="" then
response.write " "
response.write " "
response.end
end if


sql="select max(id) from pack"
set RS=conn.execute(sql)
if isnull(RS(0)) then
id=1
else
id=RS(0)+1
end if
set rs=nothing





<%
adoPageRS.pagesize = 10
adoPageRS.absolutepage = curpage
for i = 0 to 9
%>





<%
adoPageRS.movenext
if adoPageRS.eof then
i = i + 1
exit for
End If
next
%>



新 闻 标 题 日期 操  作
<%= adoPageRS("title") %>
<% = adoPageRS("addtime") %>
''>编辑
)''>删除

<% = ExportPageInfo(adoPageRS, curpage, i, "Newsman.asp?") %>


ASP编程教程技巧综合大全(46)
咨询热线:4000-525-585(免长途费)