'****************************************************

'过程名：strtype

'作  用：测试时显示变量的类型,(主要使用到的是vartype)

'参  数：str 

'****************************************************

Function strtype(str)

 str1=vartype(str)

  Select  Case str1

 ..

<select name="Animal" id="Animal">
  <option selected value="">==请选择==</option>
  <option value="鼠">鼠</option>
  <option value="牛">牛</option>
  <option value="虎&quo..

<select name="constellation">
  <option value="">-请选择-</option>
  <option value="白羊座">白羊座(3/21--4/20)</option>
  <option value="金牛座">金牛座(4/21--5/20)</option>
  <option valu..

<%sub fsojs()%>
 <%
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("../category.js"),true)

'开始操作
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from dept_category&..

server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
server_v2 = CStr(Request.ServerVariables("HTTP_HOST"))
If Mid(server_v1, 8, Len(server_v2))<>server_v2 Then
Response.Write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！\n你的IP已经被记录，如果再次来,XXX');</script>"
Response.Redirect "http://www.yongfa365.com/blog"
End If

本机ip[客户端]:
request.servervariables("remote_addr")

从哪个页面转到当前页面的：
Request.ServerVariables("HTTP_REFERER")

 得到本页地址：
<%="http://" + Request.ServerVariables("SERVER_NAME") + ":" + Request.ServerVariables("SERVER_PORT") +&nb..

１.用户名规则：

》字符大于4，

》不能在黑名单里（比如不能跟管理员有重名，不能有任何包含本站域名的相关信息如：yongfa365admin，不用能&ldquo;admin&rdquo;等字样），

》最好不要以数字开头，

》字母的话要转换成小写的写入数据库，

》注册时应该可以检查是否被占用。


２.后台菜单式权限设置


..

网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件，可能会感觉自己的网站失色不少。心晴不才，结合网上资源写了个无组件生成缩略图程序，仅供参考。 
　　还是先看看基础部分吧。首先，我们知道在页面中显示图片是如下代码：


　　<img src="pic.gif" border="0" width="300" height="260">

　..

验证码的作用：

有效防止这种问题对某一个特定注册用户用特定程序暴力破解方式进行不断的登陆尝试，实际上是用验证码是现在很多网站通行的方式（比如招商银行的网上个人银行，腾讯的QQ社区），我们利用比较简易的方式实现了这个功能。虽然登陆麻烦一点，但是对社区还来说这个功能还是很有必要，也很重要。但我们还是提醒..

asp,将变量中内容中的http地址自动加上连接 

<%

strContent ="老大，给我加个链接吧http://www.yongfa365.com哈哈哈哈，这是我家娘子的网址：http://hi.baidu.com/chenmanxia,好了，加链接吧" 

Set re=new RegExp 

re.IgnoreCase =true 

re.Global=True 

re.Pattern = "^(http://[A-Za..

2003系统

Internet 信息服务管理-->Web 服务扩展-->选择Active Server Pages为允许

admin md5加密后：

后台密码替换:16位7a57a5a743894a0e

后台密码替换: 32位21232f297a57a5a743894a0e4a801fc3

admin 经md5加密后：7a57a5a743894a0e

'文件是否存在的函数

Function fileexits(filename)
set FSO=Server.CreateObject("Scripting.FileSystemObject") 
If FSO.FileExists(filename) Then
   fileexits=true
Else
   fileexits=false
End If 
end Function

'得到文件的width 和height

     &nbs..

1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方法
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
..

ASP一个网页处理所有问题(添加，修改，删除，列表)框架 

<!--#include file="conn.asp"-->
<%'本页配置
lanmusort="链接"

%>
<link href="css/style.css" rel="stylesheet" type="text/css">
<%
 ID=int(request("ID"))
 action=request("action")


 select case acti..