WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

check.asp：源码内容

							<!--#include file="ku_inc/Ku_config.asp"-->
<!--#include file="Ku_conn.asp"-->
<%
dim act,rs,sql
act=request.QueryString("act")
select case act
case "checkusername"
dim username
username=request.QueryString("username")
if len(username)<2 or len(username)>15 then '限制用户名长度为5~15
Response.Write("0")
response.End()
end if
sql="select * from Ku_user where username='"&username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write("1")
response.End()
else
Response.Write("0")
response.End()
end if
end select
'dim table,datafield,vodid,op,sql
'vodid=Cint(request.QueryString("vid"))
'op=Cint(request.QueryString("op"))
'table=request.QueryString("table")
'datafield=request.QueryString("field")
'if vodid="" or op="" or table="" or datafield="" then
'Response.Write("0")
'response.End()
'end if
'sql="update "&table&" set "&datafield&"="&op&" where Id="&vodid&""
'oconn.execute sql
'Response.Write("1")
'response.End()
%>

						