shoutu.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 35 行

<%'收徒
function stu(from1,to1)
if Application("bais_sf")<> from1 then
stu=from1 & "你有没有搞错呀，"& to1 &"也没有想拜你为师傅，你也太那个了吧！"
exit function
end if
if Application("bais_td")<> to1 then
stu=from1 & "你有没有搞错呀，"& to1 &"也没有想拜你为师傅，你也太那个了吧！"
exit function
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
rs.open "select grade from 用户 where 姓名='" & from1 & "'",conn
if rs("grade")<3 then
stu=from1 & "你有没有搞错呀，你的等级还不够3级，你到哪里去收徒弟？"
rs.close
conn.close
set rs=nothing 
set conn=nothing
exit function
end if
rs.close
rs.open "select * from 用户 where 姓名='" & Application("bais_td") & "'",conn
conn.execute "update 用户 set 银两=银两-500000,师傅='"& from1 &"' where 姓名='"& Application("bais_td") &"'"
conn.execute "update 用户 set 银两=银两+500000 where 姓名='"& Application("bais_sf") &"'"
stu=Application("bais_td") & "向"& from1 &"交了50万块拜师费，又是点头又是哈腰的，终于求得"& from1 &"收自己为徒,嘿嘿，有师傅在，啥也不怕！"
Application("bais_sf")=""
Application("bais_td")=""
rs.close
conn.close
set rs=nothing 
set conn=nothing
end function%>