asp充值源代码（话费充值源代码）

本篇文章给大家谈谈asp充值源代码，以及话费充值源代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、用ASP做支付页面的源代码
• 2、如何查看asp源代码? (30Q币跪求)
• 3、请一段asp 代码，请达人指导

用ASP做支付页面的源代码

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

!--#include file="include/conn.asp"--

!--#include file="include/function.asp"--

!--#include file="include/md5.asp"--

!--#include file="include/wzxx.asp"--

%

set rs12=server.CreateObject("adodb.recordset")

sql="select top 10 uid,yhm,nicheng,sex,yhtime from userb order by uid desc"

rs12.open sql,conn,1,3

%

%

yhm=Str_filter(trim(request.Form("yhm")))

nicheng=Str_filter(trim(request.Form("nicheng")))

pwd=md5(Str_filter(trim(request.form("pwd"))))

sex=Str_filter(trim(request.form("sex")))

mmwt=Str_filter(trim(request.Form("mmwt")))

mmda=Str_filter(trim(request.Form("mmda")))

xingming=Str_filter(trim(request.form("xingming")))

ICO=Str_filter(trim(request.Form("ICO")))

eamil=Str_filter(trim(request.form("eamil")))

tel=Str_filter(trim(request.form("tel")))

qq=Str_filter(trim(request.form("qq")))

dizhi=Str_filter(trim(request.form("dizhi")))

ip=Str_filter(trim(request.form("ip")))

if yhm"" then

set rs1=Server.CreateObject("ADODB.Recordset")

sql="Select * from userb where yhm='"yhm"'"

rs1.open sql,conn,1,3

if not rs1.eof then

response.Write("script language='javascript';alert('此用户名已经存在,请重新输入用户名！');history.go(-1);/script")

else

rs1.addnew

rs1("yhm")=yhm

rs1("nicheng")=nicheng

rs1("pwd")=pwd

rs1("sex")=sex

rs1("mmwt")=mmwt

rs1("mmda")=mmda

rs1("xingming")=xingming

rs1("ICO")=ICO

rs1("eamil")=eamil

rs1("tel")=tel

rs1("qq")=qq

rs1("dizhi")=dizhi

rs1("ip")=ip

rs1.update

rs1.close

'修改用户登录信息！

set rs14=server.CreateObject("adodb.recordset")

sql="select * from logion"

rs14.open sql,conn,1,3

rs14.addnew

rs14("yhm")=yhm

rs14("nicheng1")=nicheng

rs14("sex4")=sex

rs14("log_tx")=ICO

rs14("log_cs")=1

rs14("gongxian")=5

rs14("log_time")=now()

rs14("log_ip")=ip

rs14.update

rs14.close

set rs14=nothing

response.Write("script language='javascript';alert('恭喜您，注册成功，请登录！');location.href='zhuce2.asp';/script")

set rs1=nothing

end if

end if

%

如何查看asp源代码? (30Q币跪求)

呵呵很简单，下载源码后，用网站制作工具或记事本打开后，就能看到网站源码了

请一段asp 代码，请达人指导

1.一般这种权限的参数都用session传递的（防止注入)

2.使用javascript控制是不好的，所以先判断，然后再显示相应没有权限

另外方式就是通过ajax了

%

dim sx,surl

sabc = cint(request("abc"))

If sabc 0 Then

surl = "window.location.href='aaa/bbb.Asp?P_UserId=1'"

Else

surl = "alert('权限不足');"

End If

%

a href="#" onclick="javascript:%=surl%"查看%=2%人/a

关于asp充值源代码和话费充值源代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。