asp增加数据库表的字段代码
<%
'下面是最具技术含量的函数了，哈哈~
'增加数据库字段
function addziduan(ziduanming,ziduanleixing)
on error resume next
fldname = ziduanming
if ziduanleixing=1 or ziduanleixing=4 then
fldtype = "VarChar"
fldsize = 255
elseif ziduanleixing=2 or ziduanleixing=3 then
fldtype = "Text"
fldsize = ""
end if
fldnull = "ON"
fldautoincrement = ""
table_name = tables
if fldname <> "" and fldtype <> "" then
sql = "alter table [" & table_name & "] add ["&fldname&"] " & fldtype
if fldsize <> "" then
sql = sql & "(" & fldsize & ")"
end if
if fldnull <> "ON" then
sql = sql & " not null"
end if
conn.execute(sql)
if err <> 0 then
response.Write "<input type='button' name='ok' value=' 返 回 ' onClick='javascript:history.go(-1)'>"
end if
end if
end function
%>
相关文档：
功能作用：ASP产生不重复的随机数（模拟游戏洗牌）
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......
'函数名：CodeCookie
'作 用：Cookie防乱码写入时用
'参 数：str ---- 字符串
'返回值：整理后的字符串
'示 例：
'**************************************************
Public Function CodeCookie(str)
If is ......
'函数名：GetMyTimeNumber()
'作 用：生成时间的整数
'参 数：lx ---- 时间整数的类型
' lx=0 到分钟 lx=1 到小时 lx=2 到天 lx=3 到月
'返回值：生成时间的整数值(最小到分钟)
'示 例：
'********************************* ......
我写了个程序，本地运行完全正常，上传到服务器在服务器上操作有时候能正常操作，但是运行一会儿就服务器连接超时，然后就不能正常操作了，关闭网页，打开还是不能连接数据库操作，等半小时后或者更久又能正常了，请问这个是怎么回事？本地随时都能正常运行切找不出任何问题。高手帮帮忙啊！ ......
ASP的漏洞已经算很少的了，想要找到数据库的实际位置也不简单，但这不表明黑客无孔可入，也正是这个观点，一般的程序设计员常常忘记仔细的检查是否有漏洞，所以才有可能导致网站资料被窃取的事件发生。今天我在这里和大家谈谈ASP常见的安全漏洞，以引起大家的重视及采取有效的防范措施。(注意，在本文中所介绍的方法请� ......
