===================== 第一题 开始================
<html>
<head>
</head>
<body>
<%
Dim IP
IP=RequestServerVariables("REMOTE_ADDR")
If Mid(IP,1,7)="162105" Then
ResponseWrite "欢迎您"
Else
ResponseWrite "您是非法用户"
End If
%>
</body>
</html>
========================= 第一题 结束 =========================
第二题 开始
<html>
<body>
<%
If RequestCookies("user")="" Then
'如果是第一次访问,就让客户填写有关信息
ResponseWrite "您好,您是第一次访问本站,请填写个人信息"
%>
<form action="" method="post">
请输入姓名 : <input type="text" name="user_name">
请选择性别 : <input type="radio" name="sex" value="男">男
<input type="radio" name="sex" value="女">女
<input type="submit" value="提交">
</form>
<%
Elseif RequestCookies("user")("vNumber")>=1 Then
'如果不是第一次访问,就令访问次数在原有次数上加1
Dim vNumber '定义一个访问次数变量
Dim user_name
Dim sex
vNumber=RequestCookies("user")("vNumber")
user_name=RequestCookies("user")("user_name")
sex=RequestCookies("user")("sex")
ResponseCookies("user")("vNumber")=vNumber+1 '将访问次数加1保存到 Cookies 中
ResponseCookies("user")("user_name")=user_name
ResponseCookies("user")("sex")=sex
ResponseCookies("user")Expires=#2030-1-1# '设置有效期为20年,其实也没必要这么长
ResponseWrite RequestCookies("user")("user_name")&"您好,您是第"&(vNumber+1)&"次访问本站"
End If
'如果提交表单后执行如下语句
If RequestForm("user_name")<>"" And RequestForm("sex")<>"" Then
ResponseCookies("user")("user_name")=RequestForm("user_name")
ResponseCookies("user")("sex")=RequestForm("sex")
ResponseCookies("user")("vNumber")=1
ResponseCookies("user")Expires=#2030-1-1#
%>
</body>
</html>
第二题 结束
'
' 取得当前用户的IP地址
'
Private Function GetUserIP()
Dim strIP
'// 取得当前用户的返问IP
strIP = RequestServerVariables(">
dim strsql,rs,conn
strsql="select name,telphone,address from sales order by desc"
set conn=servercreateobject("adodbconnection")
set rs=servercreateobject("adodbrecordset")
rs=connexecute(strsql)
楼主请参考以下代码，至于每于输出多少个，请改动变量B的值即可。
<%
set rs=servercreateobject("adodbrecordset")
rsopen "select from class_3 where typeid="&rssrot("typeid"),conn,1,1
if rseof and rsbof then
responsewrite "没有分类"
else
dim a,b,c
a=rsrecordcount
b=2 'b代表每行输出多少个
if (a mod b)=0 then
c=a/b
else
c=int(a/b)+1
end if
'通过以上判断得出共多少行，即c
for i=1 to c
if rseof then
exit for
end if
for ii=1 to b
if rseof then
exit for
end if
responsewrite "<a href='xxxasp'>"&rs("thirdname")&"</a>"
rsmovenext
next
responsewrite "<br>"
next
end if
rsclose
set rs=nothing
%>
如果你的这个文本是在同域内，可以用FSO功能读取文本内容
如果是跨域的话，要用AJAX来读取
读取的代码太多，就不写了，你可以搜一下百度FSO和AJAX的使用
==============
<%
'设定已经将内容存入变量str_link
arr_str_link=split(str_link,chr(13))'用换行符做分割符来数组化原数据
sn=lcase(RequestServerVariables("SERVER_NAME")) '
for i=0 to ubound(arr_str_link)
if sn=arr_str_link(i) or sn=">
以上就是关于asp编写程序全部的内容，包括:asp编写程序、用ASP脚本编写程序、编写一段ASP程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）