shengji.asp

支持IE 手机同步访问的WAP论坛社区程序 很不错

<!--#Include File="Inc/xkon.Asp"--><%
Call QuanXian("1",0)
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub ShengJi()
		Dim JingYan,Cn1,Cn2,x_JingYan
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Command")
			Cn1.ActiveConnection=Conn
			Cn1.CommandType=1
			Cn1.CommandText="Select JingYan From ZhangHao Where BiaoShi='"&xkon&"'"
			Set Cn2=Cn1.Execute
			If Cn2.Eof Then Call xkon_Error("发生意外错误")
			JingYan=Cn2("JingYan")
			Set Cn1=Nothing
			Set Cn2=Nothing
			x_JingYan=Zi_JiBie*10+50
			If JingYan>X_JingYan Then
				Conn.Execute("Update ZhangHao Set JiBie=JiBie+1 Where BiaoShi='"&xkon&"'")
				Conn.Execute("Update ZhangHao Set JingYan=JingYan-"&x_JingYan&" Where BiaoShi='"&xkon&"'")
				c.Write("升级成功")
			Else
				c.Write("升级失败,还需经验"&X_JingYan-JingYan)
			End If
		Call CloseData()
	End Sub
	Call H_Title("升级")
	Call ShengJi()
	c.Writeln("")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>